prefix define and define-syntax with chicken-

as we have define in cpp
This commit is contained in:
2025-06-14 18:09:50 +03:00
parent 97205ed8ef
commit e932afab0a
2 changed files with 4 additions and 3 deletions

View File

@@ -28,10 +28,11 @@ All commands in `lisp-mode-shared-map' are inherited by this map.")
(list (list
;; Declarations ;; Declarations
(list (concat "(" (list (concat "("
(regexp-opt '("chicken-import" (regexp-opt '("chicken-define"
"chicken-define-syntax"
"chicken-import"
"chicken-load" "chicken-load"
"define" "define"
"define-syntax"
"extern" "extern"
"include" "include"
"fn" "fn"

View File

@@ -140,7 +140,7 @@
(define (process-form form acc) (define (process-form form acc)
(case (car form) (case (car form)
((define) (eval form) acc) ((chicken-define) (eval form) acc)
((template) (eval form) acc) ((template) (eval form) acc)
((chicken-load) ((chicken-load)
(load (cadr form)) acc) (load (cadr form)) acc)