mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 01:00:20 +02:00
Code Activity

Minor evaluator tweaks

Browse source 
* libguile/eval.c (eval): Remove unused variable.
* libguile/memoize.c (unmemoize): Fix unmemoization.
* module/ice-9/eval.scm: Attempt to speed up common box-ref cases.
This commit is contained in:
Andy Wingo 2014-12-07 19:03:19 +01:00
parent e6a42e6765
commit 5bfc0653d6
3 changed files with 23 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
module/ice-9/eval.scm
View file

@ -279,9 +279,11 @@
;; we compile `case' effectively, this situation will improve.
(define-syntax mx-match
(lambda (x)
(syntax-case x (quote)
(syntax-case x (quote else)
((_ mx data tag)
#'(error "what" mx))
((_ mx data tag (else body))
#'body)
((_ mx data tag (('type pat) body) c* ...)
#`(if (eqv? tag #,(or (memoized-typecode (syntax->datum #'type))
(error "not a typecode" #'type)))
@ -464,7 +466,16 @@
(call eval proc nargs args env)))
(('box-ref box)
(variable-ref (eval box env)))
(memoized-expression-case box
;; Accelerate common cases.
(('resolve var-or-loc)
(if (variable? var-or-loc)
(variable-ref var-or-loc)
(variable-ref (eval box env))))
(('lexical-ref (depth . width))
(variable-ref (env-ref env depth width)))
(else
(variable-ref (eval box env)))))
(('resolve var-or-loc)
(if (variable? var-or-loc)