Prepare for psyntax-6.3..7.3 support.

* module/mes/psyntax-0.mes (ormap): New function.
  (eval): New function.
  (remprop): New function.
  ($sc-put-cte, $make-environment, environment?, syntax->list,
  syntax->vector, literal-identifier=?, $syntax-dispatch, eval-when):
  New variable.
This commit is contained in:
Jan Nieuwenhuizen 2016-12-11 21:39:54 +01:00
parent 8b172e3438
commit 40a6f2df34
1 changed files with 15 additions and 10 deletions

View File

@ -20,16 +20,8 @@
(define (interaction-environment) (current-module))
;; (define c:eval (assq-ref %builtins 'eval))
;; (define (eval x . environment)
;; (display "***EVAL x=***=\n")
;; (display x)
;; (newline)
;; (c:eval (if (and (pair? x)
;; (equal? (car x) "noexpand"))
;; (cadr x)
;; (sc-expand x))
;; (interaction-environment)))
(define (eval x . environment)
(eval-env x (if (null? environment) (current-module) (car environment))))
(define annotation? (lambda (x) #f))
(define (self-evaluating? x)
@ -41,6 +33,14 @@
(define sc-expand #f)
(define sc-chi #f)
(define sc-expand3 #f)
(define $sc-put-cte #f)
(define $make-environment #f)
(define environment? #f)
(define syntax->list #f)
(define syntax->vector #f)
(define literal-identifier=? #f)
(define $syntax-dispatch #f)
(define eval-when #f)
(define install-global-transformer #f)
(define syntax-dispatch #f)
(define syntax-error #f)
@ -77,6 +77,7 @@
(define putprop #f)
(define getprop #f)
(define remprop #f)
(define properties-alist #f)
(let ((properties '()))
@ -101,7 +102,11 @@
(cdr couple)
#f))
#f))))
(set! remprop
(lambda (symbol key)
(putprop symbol key #f)))
(set! properties-alist (lambda () *sc-expander-alist*)))
;; (define fx+ +)
;; (define fx- -)
;; (define fx= =)