Changeset 31483 in project


Ignore:
Timestamp:
09/22/14 20:35:12 (5 years ago)
Author:
evhan
Message:

r7rs/eval: Use r7rs' when building environment modules

Location:
release/4/r7rs/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/4/r7rs/trunk/scheme.base-interface.scm

    r30990 r31483  
    3636  define-record-type
    3737  define-syntax
    38   define-values ; TODO
     38  define-values
    3939  denominator numerator
    4040  do
  • release/4/r7rs/trunk/scheme.eval.scm

    r30990 r31483  
    2525         ;; create module...
    2626         (%eval `(module ,name ()
    27                   ,@(map (lambda (spec)
    28                            `(import ,(fixup-import/export-spec spec 'environment)))
    29                          specs)))
     27                   (import r7rs) ; for `import`
     28                   ,@(map (lambda (spec)
     29                            `(import ,(fixup-import/export-spec spec 'environment)))
     30                          specs)))
    3031         (let ((mod (##sys#find-module name)))
    3132           (##sys#make-structure 'environment
Note: See TracChangeset for help on using the changeset viewer.