prefix define and define-syntax with chicken-
as we have define in cpp
This commit is contained in:
@@ -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"
|
||||||
|
|||||||
2
sexc.scm
2
sexc.scm
@@ -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)
|
||||||
|
|||||||
Reference in New Issue
Block a user