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

* fixed a couple of typos in syntax.ss

This commit is contained in:
Abdulaziz Ghuloum 2007-05-07 19:46:48 -04:00
parent 036292f3fc
commit 32a1751025
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

7
src/ikarus.syntax.ss
View File

@ -1913,8 +1913,8 @@
[(define) [(define)
(let-values ([(id rhs) (parse-define e)]) (let-values ([(id rhs) (parse-define e)])
(when (bound-id-member? id kwd*) (when (bound-id-member? id kwd*)
(stx-error id "cannt redefine identifier")) (stx-error id "cannot redefine identifier"))
(when (bound-id-member? id lhs*) (when (bound-id-member? id lhs*)
(stx-error id "multiple definition")) (stx-error id "multiple definition"))
(let ([lex (gen-lexical id)] (let ([lex (gen-lexical id)]
[lab (gen-label id)]) [lab (gen-label id)])
@ -2194,7 +2194,8 @@
(f (cdr int*) (cdr ext*) (f (cdr int*) (cdr ext*)
(cons (cons (car ext*) label) subst) (cons (cons (car ext*) label) subst)
(cons (cons label (cons 'global (binding-value b))) env))] (cons (cons label (cons 'global (binding-value b))) env))]
[else (error #f "cannot export ~s of type ~s" sym type)]))]))) [else (error #f "cannot export ~s of type ~s, value=~s" sym type
(binding-value b))]))])))
(define generate-temporaries (define generate-temporaries
(lambda (ls) (lambda (ls)
(unless (list? ls) (unless (list? ls)