dmbcs/guile
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Assignment conversion in the interpreter

Browse source 
* libguile/expand.c (compute_assigned, convert_assignment)
  (scm_convert_assignment): New functions.

* libguile/expand.h: Declare scm_convert_assignment.

* libguile/memoize.c (scm_memoize_expression): Do assignment conversion
  before memoization.

* test-suite/tests/syntax.test ("letrec"): Detection of unbound letrec
  variables now works.
This commit is contained in:
Andy Wingo 2014-12-04 15:07:01 +01:00
commit 7974c57937
4 changed files with 414 additions and 22 deletions
Download patch file Download diff file Expand all files Collapse all files

31
test-suite/tests/syntax.test
View file

@ -87,6 +87,8 @@
(define exception:zero-expression-sequence
"sequence of zero expressions")
(define exception:variable-ref
'(misc-error . "variable is unbound"))
;; (put 'pass-if-syntax-error 'scheme-indent-function 1)
(define-syntax pass-if-syntax-error
@ -413,14 +415,11 @@
(with-test-prefix "bindings"
(pass-if-syntax-error "initial bindings are undefined"
exception:used-before-defined
(let ((x 1))
;; FIXME: the memoizer does initialize the var to undefined, but
;; the Scheme evaluator has no way of checking what's an
;; undefined value. Not sure how to do this.
(throw 'unresolved)
(letrec ((x 1) (y x)) y))))
(pass-if-exception "initial bindings are undefined"
exception:variable-ref
(eval '(let ((x 1))
(letrec ((x 1) (y x)) y))
(interaction-environment))))
(with-test-prefix "bad bindings"
@ -492,14 +491,10 @@
(with-test-prefix "bindings"
(pass-if-syntax-error "initial bindings are undefined"
exception:used-before-defined
(begin
;; FIXME: the memoizer does initialize the var to undefined, but
;; the Scheme evaluator has no way of checking what's an
;; undefined value. Not sure how to do this.
(throw 'unresolved)
(letrec* ((x y) (y 1)) y))))
(pass-if-exception "initial bindings are undefined"
exception:variable-ref
(eval '(letrec* ((x y) (y 1)) y)
(interaction-environment))))
(with-test-prefix "bad bindings"
@ -568,8 +563,8 @@
(interaction-environment))))
(with-test-prefix "referencing previous values"
(pass-if (equal? (letrec ((a (cons 'foo 'bar))
(b a))
(pass-if (equal? (letrec* ((a (cons 'foo 'bar))
(b a))
b)
'(foo . bar)))
(pass-if (equal? (let ()