Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-05 12:16:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Building out, adding stubs

Browse source
This commit is contained in:
Justin Ethier 2016-01-10 22:11:03 -05:00
parent a68a25630d
commit 0b3e2533f1
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
scheme/process-context.sld
View file

@ -1,10 +1,15 @@
(define-library (scheme process-context) (define-library (scheme process-context)
(export (export
command-line command-line
;exit - already defined as a primitive, at least for now
emergency-exit
; TODO: get-environment-variable
; TODO: get-environment-variables
) )
; (import (scheme base) ; (import (scheme base)
; ) ; )
(begin (begin
(define emergency-exit exit)
(define-c command-line (define-c command-line
"(void *data, int argc, closure _, object k)" "(void *data, int argc, closure _, object k)"
;; TODO: consolidate with Cyc_command_line_arguments from runtime.c ;; TODO: consolidate with Cyc_command_line_arguments from runtime.c