From b541261d70e625398cb61d52141a7a975be9bcf4 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jan@jantuomi.fi>
Date: Fri, 7 Mar 2025 00:08:25 +0200
Subject: Develop procedure macros

---
 atk16_schasm/main.scm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'atk16_schasm/main.scm')

diff --git a/atk16_schasm/main.scm b/atk16_schasm/main.scm
index fbae70c..931a9db 100644
--- a/atk16_schasm/main.scm
+++ b/atk16_schasm/main.scm
@@ -54,11 +54,9 @@
 (%when (R1 <= (u16 #xFF))
      (emit-word #xbeef))
 
-;; procedure declarations
-(%def-proc println str)
-(def-label 'println
-  ;; R0 := str
-  ;; ...
+;; procedures
+(%def-proc (println *str)
+  (param '*str) ;; => R0
   (ld PC SP pop: #t indirect: 1))
 
 ;; procedure calls
-- 
cgit v1.3