diff options
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/melt/thook-1.melt | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/testsuite/melt/thook-1.melt b/gcc/testsuite/melt/thook-1.melt index 97379450f35..3ae14536aad 100644 --- a/gcc/testsuite/melt/thook-1.melt +++ b/gcc/testsuite/melt/thook-1.melt @@ -18,6 +18,7 @@ (definstance myref class_reference) +#| (defhook justahook (:long inp :tree itr) (:long out) :long (debug "justahook inp=" inp " itr=" itr " out=" out @@ -25,13 +26,14 @@ (setq out inp) (return (+i inp 1)) ) +|# (defun mybiapp (f) - (lambda (x) (f x x))) + (lambda (x) (f x myref))) ;; also test that lambda is closing hook input values as needed (defhook anotherhook (:long i :value v) (:value outv) :void - (debug "anotherhook i=" i " v=" v) + (debug "anotherhook i=" i " v=" v " myref=" myref) (let ( (bxi (constant_box i)) ) (setq outv |