removed special-lambdas to make evaluatino of arfgs more regular

This commit is contained in:
Felix Brendel
2019-10-06 17:42:01 +02:00
parent b3023f259a
commit a0c4b16629
7 changed files with 35 additions and 42 deletions
-4
View File
@@ -85,9 +85,6 @@ condition is false."
,(rec (rest clauses))))))
(rec clauses))
(define-syntax (define-special name-and-args . body)
`(define ,(first name-and-args) (special-lambda ,(rest name-and-args) @body)))
(define-syntax (construct-list . body)
:doc "
{{{example_start}}}
@@ -471,7 +468,6 @@ added to a list, which in the end is returned."
;; (vector-ref v2 0))))
;; (unless (bound? generic-+-map)
;; (set! generic-+-map (create-hash-map)))
;; (hm/set! generic-+-map '(:vector :vector) (lambda (v1 v2)