96 lines
1.9 KiB
Plaintext
96 lines
1.9 KiB
Plaintext
|
|
;; (define (run x)
|
|
;; (define (test? y) (display "testing:") (display y) (newline) (eq? x y))
|
|
;; (test? 3)
|
|
;; )
|
|
|
|
;; (display "(run 3):")
|
|
;; (display (run 3))
|
|
;; (newline)
|
|
;; (display "(run 4):")
|
|
;; (display (run 4))
|
|
;; (newline)
|
|
|
|
;; (define (fm a)
|
|
;; (define-macro (a b)
|
|
;; (display b)
|
|
;; (newline)
|
|
;; "boo"))
|
|
|
|
;; (display "f-define-macro: ")
|
|
;; (fm 'dinges)
|
|
;; (a c)
|
|
;; (newline)
|
|
|
|
|
|
;; (define-macro (m a)
|
|
;; `(define-macro (,a b)
|
|
;; (display "b")
|
|
;; (display b)
|
|
;; (newline)))
|
|
|
|
;; (display "define-macro: ")
|
|
;; (m dinges)
|
|
;; (newline)
|
|
;; (display "running dinges: ")
|
|
;; (dinges c)
|
|
;; (newline)
|
|
|
|
|
|
(define-macro (d-s n t)
|
|
;; (display "D-S: ")
|
|
;; (display `(define-macro (,n . a)
|
|
;; (,t (cons ',n a))))
|
|
;; (newline)
|
|
`(define-macro (,n . args)
|
|
;; (display "CALLING: t: ")
|
|
;; (display ,t)
|
|
;; (display " args: ")
|
|
;; (display (cons ',n a))
|
|
;; (newline)
|
|
;; (display "HALLO: ==>")
|
|
;; (display (,t (cons ',n a)))
|
|
;; ;; (display "HALLO: ==>")
|
|
;; ;; (display (,t (cons ',n a)))
|
|
;; (newline)
|
|
(,t (cons ',n args))
|
|
)
|
|
)
|
|
|
|
(d-s s-r
|
|
(;; let () ;; syntax-rules uses (let () ...),
|
|
;; mes doesn't support that yet; use ((lambda () ...))
|
|
(lambda ()
|
|
;; syntax-rules uses defines that get closured-in
|
|
;; mes doesn't support that yet; move down
|
|
;; (define name? symbol?)
|
|
(lambda (. n-a)
|
|
(define name? symbol?)
|
|
|
|
(display "YEAH:")
|
|
(display n-a)
|
|
(display (name? n-a))
|
|
(newline)
|
|
'(lambda (. i) ;;(i r c)
|
|
(display "transformers")
|
|
(newline)
|
|
''tee-hee-hee
|
|
)
|
|
;; (define (foo) (display "Footje") (newline) 'f-f-f)
|
|
;; foo
|
|
;;"blaat"
|
|
)))
|
|
)
|
|
|
|
(display "calling s-r")
|
|
(newline)
|
|
(d-s when
|
|
(s-r 0 1 2)
|
|
)
|
|
|
|
(display "calling when")
|
|
(newline)
|
|
(display (when 3 4 5))
|
|
(newline)
|
|
'dun
|