Changeset 39020 in project


Ignore:
Timestamp:
09/11/20 19:30:30 (2 weeks ago)
Author:
felix winkelmann
Message:

r7rs 1.0.3: fix bugs reported in: https://stackoverflow.com/questions/63795556/how-to-eval-in-a-chicken-r7rs-library

Location:
release/5/r7rs
Files:
3 edited
2 copied

Legend:

Unmodified
Added
Removed
  • release/5/r7rs/tags/1.0.3/scheme.eval.scm

    r39019 r39020  
    77;;; 6.12. Environments and evaluation
    88;;;
     9
     10  ;; the slot holding "saved-environments" in the "module" record
     11  (define module-saved-environments-slot 14)
    912
    1013  (: eval (* (struct environment) -> *))
     
    3639           (##sys#make-structure 'environment
    3740            (cons 'import specs)
    38             (let ((env (##sys#slot mod 13)))
     41            (let ((env (##sys#slot mod module-saved-environments-slot)))
    3942              (append (car env) (cdr env))) ; combine env and syntax bindings
    4043            #t)))
  • release/5/r7rs/tags/1.0.3/tests/run.scm

    r38750 r39020  
    10501050          (get-output-bytevector p))))
    10511051
     1052;; this was submitted as broken by Lukas Bröger:
     1053(test-group "eval environments"
     1054  (test 42 (eval '42 (scheme-report-environment 5))))
     1055
    10521056(test-end "r7rs tests")
    10531057
  • release/5/r7rs/trunk/scheme.eval.scm

    r39019 r39020  
    77;;; 6.12. Environments and evaluation
    88;;;
     9
     10  ;; the slot holding "saved-environments" in the "module" record
     11  (define module-saved-environments-slot 14)
    912
    1013  (: eval (* (struct environment) -> *))
     
    3639           (##sys#make-structure 'environment
    3740            (cons 'import specs)
    38             (let ((env (##sys#slot mod 13)))
     41            (let ((env (##sys#slot mod module-saved-environments-slot)))
    3942              (append (car env) (cdr env))) ; combine env and syntax bindings
    4043            #t)))
  • release/5/r7rs/trunk/tests/run.scm

    r38750 r39020  
    10501050          (get-output-bytevector p))))
    10511051
     1052;; this was submitted as broken by Lukas Bröger:
     1053(test-group "eval environments"
     1054  (test 42 (eval '42 (scheme-report-environment 5))))
     1055
    10521056(test-end "r7rs tests")
    10531057
Note: See TracChangeset for help on using the changeset viewer.