41 lines
596 B
Plaintext
41 lines
596 B
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)))
|
|
|
|
(display "f-define-macro: ")
|
|
(fm 'dinges)
|
|
(a c)
|
|
(newline)
|
|
|
|
|
|
(define-macro (m a)
|
|
`(define-macro ;;(,a)
|
|
(,a b)
|
|
(display "b")
|
|
(display b) ;; todo
|
|
(newline)))
|
|
|
|
(display "define-macro: ")
|
|
(m dinges)
|
|
(newline)
|
|
(display "running dinges: ")
|
|
(dinges c)
|
|
(newline)
|
|
|
|
(newline)
|
|
3
|