conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

- minor change to how export (with renaming) is parsed. When you 

rename from-name to to-name, the from-name is now treated as an
  identifier while the to-name is treated as a symbol.
This commit is contained in:
Abdulaziz Ghuloum 2008-09-10 08:17:18 -07:00
parent fcef21c693
commit 0b017898a8
2 changed files with 9 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/last-revision
View File

@ -1 +1 @@
1592
1593

17
scheme/psyntax.expander.ss
View File

@ -3153,7 +3153,7 @@
(unless (valid-bound-ids? ext*)
(syntax-violation 'export "invalid exports"
(find-dups ext*)))
(values (map syntax->datum int*) (map syntax->datum ext*)))
(values (map syntax->datum ext*) int*))
(else
(syntax-match (car exp*) ()
((rename (i* e*) ...)
@ -3499,14 +3499,14 @@
(vis-collector vtc))
(let-values (((init* r mr lex* rhs* internal-exp*)
(chi-library-internal b* rib top?)))
(let-values (((exp-int* exp-ext*)
(let-values (((exp-name* exp-id*)
(parse-exports (append main-exp* internal-exp*))))
(seal-rib! rib)
(let* ((init* (chi-expr* init* r mr))
(rhs* (chi-rhs* rhs* r mr)))
(unseal-rib! rib)
(let ((loc* (map gen-global lex*))
(export-subst (make-export-subst exp-int* exp-ext* rib)))
(export-subst (make-export-subst exp-name* exp-id*)))
(define errstr
"attempt to export mutated variable")
(let-values (((export-env global* macro*)
@ -3733,15 +3733,14 @@
lex*+loc*
init*)))))
(define (make-export-subst int* ext* rib)
(define (make-export-subst name* id*)
(map
(lambda (int ext)
(let* ((id (make-stx int top-mark* (list rib) '()))
(label (id->label id)))
(lambda (name id)
(let ((label (id->label id)))
(unless label
(stx-error id "cannot export unbound identifier"))
(cons ext label)))
int* ext*))
(cons name label)))
name* id*))
(define (make-export-env/macros lex* loc* r)
(define (lookup x)