From 9a3d95914224dc5d95f04aa91951cfebd2828edc Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Tue, 8 May 2007 05:48:53 -0400 Subject: [PATCH] * cleanup of syntax.ss --- src/ikarus.syntax.ss | 44 +------------------------------------------- 1 file changed, 1 insertion(+), 43 deletions(-) diff --git a/src/ikarus.syntax.ss b/src/ikarus.syntax.ss index f0be49b..bcd7754 100644 --- a/src/ikarus.syntax.ss +++ b/src/ikarus.syntax.ss @@ -2166,50 +2166,8 @@ (for-each invoke-library lib*)))] [else (error #f "invalid invoke form ~s" x)])] [else (error #f "invalid top-level form ~s" x)]))) + ;;; FIXME: export the rest of the syntax-case procedures ) - -#!eof junk - -(build-application no-source - (build-primref no-source 'install-library) - (list (build-data no-source id) - (build-data no-source name) - (build-data no-source ver) - (build-data no-source imp*) - (build-data no-source vis*) - (build-data no-source inv*) - (build-data no-source exp-subst) - (build-data no-source exp-env) - (build-primref no-source 'void) - (build-sequence no-source - (list invoke-code - (build-primref no-source 'void))))) - - - (module (make-stx stx? stx-expr stx-mark* stx-subst*) - (define make-stx - (lambda (e m* s*) - (vector 'stx e m* s*))) - (define stx? - (lambda (x) - (and (vector? x) - (= (vector-length x) 4) - (eq? (vector-ref x 0) 'stx)))) - (define stx-expr - (lambda (x) - (if (stx? x) - (vector-ref x 1) - (error 'stx-expr "~s is not a syntax object" x)))) - (define stx-mark* - (lambda (x) - (if (stx? x) - (vector-ref x 2) - (error 'stx-mark* "~s is not a syntax object" x)))) - (define stx-subst* - (lambda (x) - (if (stx? x) - (vector-ref x 3) - (error 'stx-subst* "~s is not a syntax object" x)))))