provide guile # abort routine # this will allow C stack synchro. see plugins/guile.c : guile-abort-execute last-error reset throw-fatal ; # exit inner interpreter (pf_vm_resume) with fatal error : guile->abort ['] guile-abort-execute >abort ; # load the binary module "guile.pfo" pfo : guile-call guile-eval drop ; # load the scheme support code "guile/setup.scm" pathify (load (pf-pop)) guile-call # start interpreter : guile "guile repl" . cr (repl (lambda (dummy) (repl-reader ">> ")) primitive-eval (lambda (thing) (display thing) (display "\n"))) guile-call ;