conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove include

This commit is contained in:
Yuichi Nishiwaki 2014-09-12 18:52:32 +09:00
parent f9e603f32b
commit e58f216b2d
1 changed files with 0 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
boot.c
View File

@ -316,25 +316,6 @@ my $src = <<'EOL';
(lambda (form r c) (lambda (form r c)
`(,(r 'letrec-syntax) ,@(cdr form))))) `(,(r 'letrec-syntax) ,@(cdr form)))))
(define-syntax include
(letrec ((read-file
(lambda (filename)
(let ((port (open-input-file filename)))
(dynamic-wind
(lambda () #f)
(lambda ()
(let loop ((expr (read port)) (exprs '()))
(if (eof-object? expr)
(reverse exprs)
(loop (read port) (cons expr exprs)))))
(lambda ()
(close-port port)))))))
(er-macro-transformer
(lambda (form rename compare)
(let ((filenames (cdr form)))
(let ((exprs (apply append (map read-file filenames))))
`(,(rename 'begin) ,@exprs)))))))
(export let let* letrec letrec* (export let let* letrec letrec*
let-values let*-values define-values let-values let*-values define-values
quasiquote unquote unquote-splicing quasiquote unquote unquote-splicing
@ -342,7 +323,6 @@ my $src = <<'EOL';
cond case else => cond case else =>
do when unless do when unless
let-syntax letrec-syntax let-syntax letrec-syntax
include
syntax-error)) syntax-error))
EOL EOL
@ -704,25 +684,6 @@ const char pic_boot[] =
" (lambda (form r c)\n" " (lambda (form r c)\n"
" `(,(r 'letrec-syntax) ,@(cdr form)))))\n" " `(,(r 'letrec-syntax) ,@(cdr form)))))\n"
"\n" "\n"
" (define-syntax include\n"
" (letrec ((read-file\n"
" (lambda (filename)\n"
" (let ((port (open-input-file filename)))\n"
" (dynamic-wind\n"
" (lambda () #f)\n"
" (lambda ()\n"
" (let loop ((expr (read port)) (exprs '()))\n"
" (if (eof-object? expr)\n"
" (reverse exprs)\n"
" (loop (read port) (cons expr exprs)))))\n"
" (lambda ()\n"
" (close-port port)))))))\n"
" (er-macro-transformer\n"
" (lambda (form rename compare)\n"
" (let ((filenames (cdr form)))\n"
" (let ((exprs (apply append (map read-file filenames))))\n"
" `(,(rename 'begin) ,@exprs)))))))\n"
"\n"
" (export let let* letrec letrec*\n" " (export let let* letrec letrec*\n"
" let-values let*-values define-values\n" " let-values let*-values define-values\n"
" quasiquote unquote unquote-splicing\n" " quasiquote unquote unquote-splicing\n"
@ -730,7 +691,6 @@ const char pic_boot[] =
" cond case else =>\n" " cond case else =>\n"
" do when unless\n" " do when unless\n"
" let-syntax letrec-syntax\n" " let-syntax letrec-syntax\n"
" include\n"
" syntax-error))\n" " syntax-error))\n"
; ;