Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 13:37:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

Adding include and include-ci to (scheme base).

Browse source 
The cwd is undefined - these macros are useless.
This commit is contained in:
Alex Shinn 2012-10-14 22:37:46 +09:00
parent 993e690891
commit bc4d01eac0
2 changed files with 26 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/scheme/base.sld
View file

@ -25,7 +25,8 @@
error-object-irritants error-object-message error-object? even?
exact exact-integer-sqrt exact-integer? exact? expt features floor
flush-output-port for-each gcd get-output-bytevector get-output-string
guard if import inexact inexact? input-port? integer->char
guard if import include include-ci inexact inexact? input-port?
integer->char
integer? lambda lcm length let let* let*-values let-syntax let-values
letrec letrec* letrec-syntax list list->string list->vector list-copy
list-ref list-set! list-tail list? make-bytevector make-list

24
lib/scheme/extras.scm
View file

@ -1,4 +1,28 @@
(define (read-sexps file . o)
(let ((in (open-input-file file)))
(if (and (pair? o) (car o))
(set-port-fold-case! in #t))
(let lp ((res '()))
(let ((x (read in)))
(if (eof-object? x) res (lp (cons x res)))))))
(define-syntax include
(er-macro-transformer
(lambda (expr rename compare)
(let lp ((files (cdr expr)) (res '()))
(cond
((null? files) (cons (rename 'begin) (reverse res)))
(else (lp (cdr files) (append (read-sexps (car files)) res))))))))
(define-syntax include-ci
(er-macro-transformer
(lambda (expr rename compare)
(let lp ((files (cdr expr)) (res '()))
(cond
((null? files) (cons (rename 'begin) (reverse res)))
(else (lp (cdr files) (append (read-sexps (car files) #t) res))))))))
(define (features) *features*)
(define exact inexact->exact)