diff options
| author | Case Duckworth | 2023-06-05 00:12:30 -0500 |
|---|---|---|
| committer | Case Duckworth | 2023-06-05 00:12:30 -0500 |
| commit | 3c824a2ce132e0fd2c78c511261e002a8b33f130 (patch) | |
| tree | 26017ba596790f4d42db854ead0626b983be66b0 /.repl | |
| parent | Remove spurious guile stuff (diff) | |
| download | fff-3c824a2ce132e0fd2c78c511261e002a8b33f130.tar.gz fff-3c824a2ce132e0fd2c78c511261e002a8b33f130.zip | |
Add (fff json)
(fff json) serializes fff to json, but not the other way.
Diffstat (limited to '.repl')
| -rw-r--r-- | .repl | 5 |
1 files changed, 3 insertions, 2 deletions
| diff --git a/.repl b/.repl index 7d50383..af13f78 100644 --- a/.repl +++ b/.repl | |||
| @@ -3,12 +3,13 @@ | |||
| 3 | #+chicken (import (r7rs)) | 3 | #+chicken (import (r7rs)) |
| 4 | 4 | ||
| 5 | (let loop ((load-files '("fff.parse" | 5 | (let loop ((load-files '("fff.parse" |
| 6 | "fff.read"))) | 6 | "fff.read" |
| 7 | "fff.json"))) | ||
| 7 | (if (null? load-files) | 8 | (if (null? load-files) |
| 8 | #t | 9 | #t |
| 9 | (let ((this (car load-files))) | 10 | (let ((this (car load-files))) |
| 10 | (load (string-append (car load-files) ".sld")) | 11 | (load (string-append (car load-files) ".sld")) |
| 11 | (eval `(import ,(map string->symbol (string-split this ".")))) | 12 | ;; (eval `(import ,(map string->symbol (string-split this ".")))) |
| 12 | (load (string-append (car load-files) ".ss")) | 13 | (load (string-append (car load-files) ".ss")) |
| 13 | (loop (cdr load-files))))) | 14 | (loop (cdr load-files))))) |
| 14 | 15 | ||