prefix define and define-syntax with chicken-

as we have define in cpp
2025-06-14 18:09:50 +03:00
parent af6b7a37ee
commit 27822cee2a
2 changed files with 4 additions and 3 deletions
--- a/sex-mode.el
+++ b/sex-mode.el
@@ -28,10 +28,11 @@ All commands in `lisp-mode-shared-map' are inherited by this map.")
    (list
     ;; Declarations
     (list (concat "("
-                   (regexp-opt '("chicken-import"
+                   (regexp-opt '("chicken-define"
+                                 "chicken-define-syntax"
+                                 "chicken-import"
                                 "chicken-load"
                                 "define"
-                                 "define-syntax"
                                 "extern"
                                 "include"
                                 "fn"
--- a/sexc.scm
+++ b/sexc.scm
@@ -140,7 +140,7 @@

 (define (process-form form acc)
  (case (car form)
-    ((define) (eval form) acc)
+    ((chicken-define) (eval form) acc)
    ((template) (eval form) acc)
    ((chicken-load)
     (load (cadr form)) acc)