Merge branch 'issue-97'

This commit is contained in:
Yuichi Nishiwaki 2014-04-06 01:11:32 +09:00
commit 288ee21b1b
3 changed files with 24 additions and 2 deletions

View File

@ -74,6 +74,20 @@ Picrin is a lightweight scheme implementation intended to comply with full R7RS
Sorting and Marging. Sorting and Marging.
## The REPL
At the REPL start-up time, some usuful built-in libraries listed below will be automatically imported.
- `(scheme base)`
- `(scheme load)`
- `(scheme process-context)`
- `(scheme write)`
- `(scheme file)`
- `(scheme inexact)`
- `(scheme cxr)`
- `(scheme lazy)`
- `(scheme time)`
## Compliance with R7RS ## Compliance with R7RS
| section | status | comments | | section | status | comments |

View File

@ -211,8 +211,7 @@ read_datum(int tok, yyscan_t scanner)
error(NULL, scanner); error(NULL, scanner);
} }
/* unreachable */ UNREACHABLE();
return pic_undef_value();
} }
static pic_value static pic_value

View File

@ -41,6 +41,15 @@ import_repllib(pic_state *pic)
int ai = pic_gc_arena_preserve(pic); int ai = pic_gc_arena_preserve(pic);
pic_import(pic, pic_read(pic, "(scheme base)")); pic_import(pic, pic_read(pic, "(scheme base)"));
pic_import(pic, pic_read(pic, "(scheme load)"));
pic_import(pic, pic_read(pic, "(scheme process-context)"));
pic_import(pic, pic_read(pic, "(scheme write)"));
pic_import(pic, pic_read(pic, "(scheme file)"));
pic_import(pic, pic_read(pic, "(scheme inexact)"));
pic_import(pic, pic_read(pic, "(scheme cxr)"));
pic_import(pic, pic_read(pic, "(scheme lazy)"));
pic_import(pic, pic_read(pic, "(scheme time)"));
pic_import(pic, pic_read(pic, "(picrin macro)"));
#if DEBUG #if DEBUG
puts("* imported repl libraries"); puts("* imported repl libraries");