From 0b3e2533f16df36f9f4b52b3e22c560132fcd47e Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Sun, 10 Jan 2016 22:11:03 -0500
Subject: [PATCH] Building out, adding stubs

---
 scheme/process-context.sld | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/scheme/process-context.sld b/scheme/process-context.sld
index 23a9d32f..ba570bd5 100644
--- a/scheme/process-context.sld
+++ b/scheme/process-context.sld
@@ -1,10 +1,15 @@
 (define-library (scheme process-context)
   (export 
     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) 
 ;  )
   (begin
+    (define emergency-exit exit)
     (define-c command-line
       "(void *data, int argc, closure _, object k)"
       ;; TODO: consolidate with Cyc_command_line_arguments from runtime.c