aboutsummaryrefslogtreecommitdiff
path: root/main.lisp
diff options
context:
space:
mode:
authorAryadev Chavali <aryadev@aryadevchavali.com>2025-02-14 16:34:15 +0000
committerAryadev Chavali <aryadev@aryadevchavali.com>2025-02-14 16:34:15 +0000
commitf8a834c0d24b1c57f14e9f86ec827aad73e4473e (patch)
treed0a7084400269e42abb9beef2a1a7ed94c22ddbf /main.lisp
parent02ff1a3fb3f687160b3164680fd655da56c0eae9 (diff)
downloadcantedraw-f8a834c0d24b1c57f14e9f86ec827aad73e4473e.tar.gz
cantedraw-f8a834c0d24b1c57f14e9f86ec827aad73e4473e.tar.bz2
cantedraw-f8a834c0d24b1c57f14e9f86ec827aad73e4473e.zip
Rewrote --> to take a placeholder symbol as first argument
Instead of exporting cantedraw.lib.macro._ and making anyone who wants to use the --> macro _require_ importing that specific symbol, let's just make it so the user has to supply a placeholder name before they do anything. This means each package provides its own placeholder symbol which lowers coupling.
Diffstat (limited to 'main.lisp')
-rw-r--r--main.lisp7
1 files changed, 4 insertions, 3 deletions
diff --git a/main.lisp b/main.lisp
index af6312d..2bd3102 100644
--- a/main.lisp
+++ b/main.lisp
@@ -44,6 +44,7 @@
inp))
(defun start ()
- (--> (read-until-integers)
- (cons '+ _)
- (format t "~a = ~a~%" _ (eval _))))
+ (--> var
+ (read-until-integers)
+ (cons '+ var)
+ (format t "~a = ~a~%" var (eval var))))