Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-25 13:05:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added new predicates

Browse source
This commit is contained in:
Justin Ethier 2017-11-21 13:23:08 -05:00
parent 24fc89f320
commit 09cb431219
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scheme/cyclone/macros.sld
View file

@ -14,6 +14,8 @@
) )
(export (export
define-syntax? define-syntax?
let-syntax?
letrec-syntax?
macro:macro? macro:macro?
macro:expand macro:expand
macro:add! macro:add!
@ -52,6 +54,12 @@
(define (define-syntax? exp) (define (define-syntax? exp)
(tagged-list? 'define-syntax exp)) (tagged-list? 'define-syntax exp))
(define (let-syntax? exp)
(tagged-list? 'let-syntax exp))
(define (letrec-syntax? exp)
(tagged-list? 'letrec-syntax exp))
(define (macro:macro? exp defined-macros) (assoc (car exp) defined-macros)) (define (macro:macro? exp defined-macros) (assoc (car exp) defined-macros))
(define (macro:expand exp macro mac-env rename-env) (define (macro:expand exp macro mac-env rename-env)