Changeset 39042 in project


Ignore:
Timestamp:
09/18/20 15:10:06 (6 weeks ago)
Author:
Kon Lovett
Message:

import csi when csi, -O4 -d0

Location:
release/5/expand-full/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/5/expand-full/trunk/expand-full.egg

    r38961 r39042  
    33
    44((synopsis "Full macro expansion")
    5  (version "2.1.0")
     5 (version "2.1.1")
    66 (category misc)
    77 (author "[[kon lovett]]")
     
    1212  (extension expand-full
    1313    (types-file)
    14     (csc-options "-O3" "-d1" "-strict-types" "-no-procedure-checks") ) ) )
     14    (csc-options "-O4" "-d0" "-strict-types" "-no-procedure-checks") ) ) )
  • release/5/expand-full/trunk/expand-full.scm

    r39010 r39042  
    2525(import (chicken syntax))
    2626(import (only (chicken platform) feature?))
    27 #; ;NOTE since could be used in a compiled context cannot require a "non-existing" module
    28 (import (only (chicken csi) toplevel-command))
    2927(import (only (chicken pretty-print) pretty-print))
    3028(import (only (srfi 1) proper-list?))
     
    4139(define (across func form)
    4240  (cond
    43     ((vector? form) (vector-map (lambda (_ x) (func x)) form))
    44     ((pair? form)   (safe-list-map func form))
    45     (else           form)) )
     41    ((vector? form)
     42      (vector-map (lambda (_ x) (func x)) form))
     43    ((pair? form)
     44      (print "across " form)
     45      (if (or (eq? 'quote (car form)) (eq? '##core#quote (car form)))
     46        form
     47        (safe-list-map func form)))
     48    (else
     49      form)) )
    4650
    4751(define (down stpr form expanded)
     
    7781
    7882(when (feature? 'csi)
    79   (chicken.csi#toplevel-command 'x*
     83  ;; Load csi library at runtime here in Chicken 5 only after we confirm
     84  ;; csi is running. Otherwise chicken.csi load fails.
     85  (import (only (chicken csi) toplevel-command))
     86  (toplevel-command 'x*
    8087    ;FIXME need apropos like csi argument handler
    8188    (lambda () (ppexpand* (read)))
Note: See TracChangeset for help on using the changeset viewer.