diff options
author | Andy Wingo <wingo@pobox.com> | 2009-12-13 16:18:39 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2009-12-13 16:18:39 +0100 |
commit | 4abb824cdbd5f16a836da8ab75cc24a6a53f3b35 (patch) | |
tree | 2bf092266ba7f5ba3473b6e00dbd50cea1e1198d /test-suite/tests/goops.test | |
parent | 271a32dbc25825ffa3cd880b4260272c0ddc7cf1 (diff) | |
download | guile-4abb824cdbd5f16a836da8ab75cc24a6a53f3b35.tar.gz |
interpreted closures cons less.
* module/ice-9/eval.scm (primitive-eval): When making a closure with N
formals, actuall return a closure with N formals, if N is less than
*max-static-argument-count*, which currently is 8. If N is greater
than 8, do the arg-parsing loop as we did before. Requires some
macrology, but should reduce unnecessary consing for interpreted
closures.
* test-suite/tests/goops.test:
* test-suite/tests/hooks.test: Now that checks like (thunk? foo) are
going to work as a for interpreted code, remove some (throw
'unresolved).
Diffstat (limited to 'test-suite/tests/goops.test')
-rw-r--r-- | test-suite/tests/goops.test | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/test-suite/tests/goops.test b/test-suite/tests/goops.test index f2ae2b717..908d1e7ae 100644 --- a/test-suite/tests/goops.test +++ b/test-suite/tests/goops.test @@ -167,10 +167,6 @@ (expect-fail "bad init-thunk" (begin - ;; Currently UPASSing because we can't usefully get - ;; any arity information out of interpreted - ;; procedures. A FIXME I guess. - (throw 'unresolved) (catch #t (lambda () (eval '(define-class <foo> () |