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

* removed all x:identifiers that were introduced during the move.

This commit is contained in:
Abdulaziz Ghuloum 2007-05-01 06:15:42 -04:00
parent 5e3e02e295
commit f62a41cc43
2 changed files with 11 additions and 10 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.

21
src/libsyntax.ss
View File

@ -1012,10 +1012,10 @@
[$record? $record?-label (core-prim . $record?)] [$record? $record?-label (core-prim . $record?)]
[$record/rtd? $record/rtd?-label (core-prim . $record/rtd?)] [$record/rtd? $record/rtd?-label (core-prim . $record/rtd?)]
;;; syntax-case ;;; syntax-case
[identifier? identifier?-label (core-prim . x:identifier?)] [identifier? identifier?-label (core-prim . identifier?)]
[syntax-error syntax-error-label (core-prim . syntax-error)] [syntax-error syntax-error-label (core-prim . syntax-error)]
[generate-temporaries generate-temporaries-label (core-prim . x:generate-temporaries)] [generate-temporaries generate-temporaries-label (core-prim . generate-temporaries)]
[free-identifier=? free-identifier=?-label (core-prim . x:free-identifier=?)] [free-identifier=? free-identifier=?-label (core-prim . free-identifier=?)]
[chi-top-library chi-top-library-label (core-prim . chi-top-library)] [chi-top-library chi-top-library-label (core-prim . chi-top-library)]
;;; codes ;;; codes
[$closure-code $closure-code-label (core-prim . $closure-code)] [$closure-code $closure-code-label (core-prim . $closure-code)]
@ -1871,7 +1871,7 @@
(build-conditional no-source test conseq altern)) (build-conditional no-source test conseq altern))
(list (list
(build-application no-source (build-application no-source
(build-primref no-source 'x:syntax-dispatch) (build-primref no-source 'syntax-dispatch)
(list (list
(build-lexical-reference no-source x) (build-lexical-reference no-source x)
(build-data no-source p)))))))))))))) (build-data no-source p))))))))))))))
@ -1879,7 +1879,7 @@
(lambda (x keys clauses r mr) (lambda (x keys clauses r mr)
(if (null? clauses) (if (null? clauses)
(build-application no-source (build-application no-source
(build-primref no-source 'x:syntax-error) (build-primref no-source 'syntax-error)
(list (build-lexical-reference no-source x))) (list (build-lexical-reference no-source x)))
(syntax-match (car clauses) () (syntax-match (car clauses) ()
[(pat expr) [(pat expr)
@ -2501,27 +2501,28 @@
(let ([v (library-expander^ x)]) (let ([v (library-expander^ x)])
;(pretty-print v) ;(pretty-print v)
v))) v)))
(primitive-set! 'x:identifier? id?)
(primitive-set! 'x:generate-temporaries (primitive-set! 'identifier? id?)
(primitive-set! 'generate-temporaries
(lambda (ls) (lambda (ls)
(unless (list? ls) (unless (list? ls)
(error 'generate-temporaries "~s is not a list")) (error 'generate-temporaries "~s is not a list"))
(map (lambda (x) (stx (gensym 't) top-mark* '())) ls))) (map (lambda (x) (stx (gensym 't) top-mark* '())) ls)))
(primitive-set! 'x:free-identifier=? (primitive-set! 'free-identifier=?
(lambda (x y) (lambda (x y)
(if (id? x) (if (id? x)
(if (id? y) (if (id? y)
(free-id=? x y) (free-id=? x y)
(error 'free-identifier=? "~s is not an identifier" y)) (error 'free-identifier=? "~s is not an identifier" y))
(error 'free-identifier=? "~s is not an identifier" x)))) (error 'free-identifier=? "~s is not an identifier" x))))
(primitive-set! 'x:syntax-error (primitive-set! 'syntax-error
(lambda (x . args) (lambda (x . args)
(unless (andmap string? args) (unless (andmap string? args)
(error 'syntax-error "invalid argument ~s" args)) (error 'syntax-error "invalid argument ~s" args))
(error #f "~a: ~s" (error #f "~a: ~s"
(apply string-append args) (apply string-append args)
(strip x '())))) (strip x '()))))
(primitive-set! 'x:syntax-dispatch syntax-dispatch) (primitive-set! 'syntax-dispatch syntax-dispatch)
(primitive-set! 'chi-top-library library-expander)) (primitive-set! 'chi-top-library library-expander))