Changeset 9346 in project


Ignore:
Timestamp:
03/09/08 14:56:20 (12 years ago)
Author:
Alex Shinn
Message:

Installing by default, allowing case-sensitive usage, adding core
Chicken macros.

Location:
release/3/riaxpander
Files:
1 added
3 edited

Legend:

Unmodified
Added
Removed
  • release/3/riaxpander/chicken.scm

    r5506 r9346  
    1111;;; mode.  To load the system, simply (compile and) load this file.
    1212
    13 (eval-when (compile load eval)
     13(eval-when (compile eval)
    1414  (if (not (eq? (read (open-input-string "FOO"))
    1515                (read (open-input-string "foo"))))
     
    3434    close-syntax
    3535    close-syntax*
     36    ;; syntactic-closures egg compatibility
     37    syntax-check
     38    capture-syntactic-environment
     39    identifier?
     40    identifier=?
     41    identifier->symbol
    3642    ;++ more exports
    3743    ))
     44
     45(define identifier? symbol?)
     46(define identifier=? eq?)
     47(define identifier->symbol identity)
    3848
    3949(define (syntax-error message history . irritants)
     
    5363(include "standard")
    5464(include "synrules")
     65(include "syncheck")
     66;;(include "name")
    5567
    5668
     
    463475  history                               ;ignore
    464476  `(BEGIN ,@(chicken/compile-expressions expressions)))
     477
     478
     479
     480;;;; install
     481
     482(riaxpander:install)
     483(register-feature! 'syntax-rules 'hygienic-macros 'syntactic-closures)
     484
     485(unless (memq #:standard-syntax ##sys#features)
     486  (load (##sys#resolve-include-filename "riaxpander-chicken-macros.scm" #t #t)) )
     487
  • release/3/riaxpander/classify.scm

    r5506 r9346  
    207207     form                               ;ignore
    208208     (classify-reduction (receiver environment) environment history))))
     209
     210(define capture-syntactic-environment
     211  call-with-syntactic-environment)
    209212
    210213(define (call-with-syntactic-history receiver)
  • release/3/riaxpander/riaxpander.setup

    r5506 r9346  
    33         -o riaxpander.so)
    44
    5 (install-extension 'riaxpander '("riaxpander.so")
    6   '((version 0.3)
     5(install-extension 'riaxpander
     6                   '("riaxpander.so" "riaxpander-chicken-macros.scm")
     7  '((version 0.4)
    78    (documentation "riaxpander.html")
    89    (syntax)
Note: See TracChangeset for help on using the changeset viewer.