Skip to content
Browse files

removed overdefinition of define-macro as it is not needed anymore an…

…d was actually buggy since recent releases of Gambit
  • Loading branch information...
1 parent 613b9db commit 739537a6f7ae7adfc69761b735e9fe87297e6c02 @yome yome committed Aug 7, 2008
Showing with 0 additions and 27 deletions.
  1. +0 −27 termite#.scm
View
27 termite#.scm
@@ -39,33 +39,6 @@
))
-(##define-macro (define-macro pattern . rest)
-
- (define (form-size parms) ; this definition must match the one in "_eval.scm"
- (let loop ((lst parms) (n 1))
- (cond ((pair? lst)
- (let ((parm (car lst)))
- (if (memq parm '(#!optional #!key #!rest))
- (- n)
- (loop (cdr lst)
- (+ n 1)))))
- ((null? lst)
- n)
- (else
- (- n)))))
-
- (let ((src `(lambda ,(cdr pattern) ,@rest)))
- `(begin
- (##define-macro ,pattern ,@rest)
- (##top-cte-add-macro!
- ##interaction-cte
- ',(car pattern)
- (##make-macro-descr
- #f
- ',(form-size (cdr pattern))
- ,src
- #f)))))
-
(##define-macro (compile-time-load filename)
(load filename)
#f)

0 comments on commit 739537a

Please sign in to comment.
Something went wrong with that request. Please try again.