2016-07-10 14:31:45 +01:00
|
|
|
-*-mode:org-*-
|
|
|
|
|
* run psyntax.pp v2
|
|
|
|
|
** implement core primitives: DONE
|
|
|
|
|
begin
|
|
|
|
|
define
|
|
|
|
|
if
|
|
|
|
|
lambda
|
|
|
|
|
letrec
|
|
|
|
|
quote
|
|
|
|
|
set!
|
|
|
|
|
** implement minimal needed rsr3/rsr4:
|
2016-07-10 21:43:23 +01:00
|
|
|
v "string"
|
2016-07-11 09:38:02 +01:00
|
|
|
v #(v e c t o r)
|
2016-07-10 14:31:45 +01:00
|
|
|
#\CHAR
|
2016-07-11 09:48:25 +01:00
|
|
|
v assq
|
2016-07-10 14:31:45 +01:00
|
|
|
call-with-values
|
2016-07-10 23:15:28 +01:00
|
|
|
v char?
|
2016-07-10 23:21:45 +01:00
|
|
|
v length
|
2016-07-10 23:15:28 +01:00
|
|
|
v list
|
2016-07-11 09:38:02 +01:00
|
|
|
v list->vector
|
|
|
|
|
v make-vector
|
2016-07-11 10:05:17 +01:00
|
|
|
v memq
|
|
|
|
|
v memv
|
2016-07-10 23:15:28 +01:00
|
|
|
v string
|
2016-07-10 21:43:23 +01:00
|
|
|
v string-append
|
|
|
|
|
v string?
|
2016-07-10 23:15:28 +01:00
|
|
|
v symbol?
|
2016-07-10 14:31:45 +01:00
|
|
|
values
|
2016-07-11 09:38:02 +01:00
|
|
|
v vector
|
|
|
|
|
v vector->list
|
|
|
|
|
v vector-length
|
|
|
|
|
v vector-ref
|
|
|
|
|
v vector-set!
|
|
|
|
|
v vector?
|
2016-07-10 21:43:23 +01:00
|
|
|
... possibly also: any, each, unquote-splicing, ...
|
2016-07-10 14:31:45 +01:00
|
|
|
** implement extras: (gensym)
|
|
|
|
|
** hook-up sc-expand, see guile-1.0?: scheme:eval-transformer
|
