brady
/
guile-csv
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixup! fixup! fixup! Added a module for (pre-post-order) utilities

Browse Source
master
Brady McDonough 5 years ago
parent f5e7472036
commit 80b0ae61b9
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File

5
csv/transform.scm
Unescape View File

@ -33,7 +33,8 @@
;; (pre-post-order $tree `(,(bubble-term rec "key-name") ;; (pre-post-order $tree `(,(bubble-term rec "key-name")
;; (*default* . ,(lambda x x)))) ;; (*default* . ,(lambda x x))))
;; This will generate a rule which travels in *preorder* to each record named ;; This will generate a rule which travels in *preorder* to each record named
;;'rec' and replace the rec symbol with the pair keyed as "key-name" ;;'rec' and replace the rec symbol with the pair keyed as "key-name". The rest
;;of the record will be a quoted list.
(define-syntax bubble-term (define-syntax bubble-term
(syntax-rules () (syntax-rules ()
((_ record-sym $str) ((_ record-sym $str)
@ -42,4 +43,4 @@
(let* (($lst (cadr $record))) (let* (($lst (cadr $record)))
(receive (head rest) (receive (head rest)
(partition (key-contains-defer $str) $lst) (partition (key-contains-defer $str) $lst)
(cons head (cons rest '()))))))))) (cons head `(',rest)))))))))

Write Preview
Loading…
Cancel
Save