Update scratch
This commit is contained in:
parent
b8727b7990
commit
3ca90742d8
|
@ -35,6 +35,7 @@
|
||||||
((? list? lst) (map (λ (item) (expand-view engine item)) lst))
|
((? list? lst) (map (λ (item) (expand-view engine item)) lst))
|
||||||
(else tree)))
|
(else tree)))
|
||||||
|
|
||||||
|
;; Problem: Need to support dot syntax so users can create variadic operations
|
||||||
(define-syntax-rule (define-vprim (name args ...)
|
(define-syntax-rule (define-vprim (name args ...)
|
||||||
exp ...
|
exp ...
|
||||||
((eng content) ...))
|
((eng content) ...))
|
||||||
|
@ -42,8 +43,6 @@
|
||||||
exp ...
|
exp ...
|
||||||
(lambda (engine)
|
(lambda (engine)
|
||||||
(match engine
|
(match engine
|
||||||
;; Problem: Content can contain any number of these functions
|
|
||||||
;; Need to identify them and resolve them.
|
|
||||||
('eng (expand-view engine content)) ...))))
|
('eng (expand-view engine content)) ...))))
|
||||||
|
|
||||||
(define-vprim (box content)
|
(define-vprim (box content)
|
||||||
|
|
Loading…
Reference in New Issue