From 3c824a2ce132e0fd2c78c511261e002a8b33f130 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Mon, 5 Jun 2023 00:12:30 -0500 Subject: Add (fff json) (fff json) serializes fff to json, but not the other way. --- .repl | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to '.repl') diff --git a/.repl b/.repl index 7d50383..af13f78 100644 --- a/.repl +++ b/.repl @@ -3,12 +3,13 @@ #+chicken (import (r7rs)) (let loop ((load-files '("fff.parse" - "fff.read"))) + "fff.read" + "fff.json"))) (if (null? load-files) #t (let ((this (car load-files))) (load (string-append (car load-files) ".sld")) - (eval `(import ,(map string->symbol (string-split this ".")))) + ;; (eval `(import ,(map string->symbol (string-split this ".")))) (load (string-append (car load-files) ".ss")) (loop (cdr load-files))))) -- cgit 1.4.1-21-gabe81