Added cabal and vim dir
This commit is contained in:
@@ -0,0 +1,30 @@
|
||||
;;;
|
||||
;;; husk-scheme
|
||||
;;; http://justinethier.github.com/husk-scheme
|
||||
;;;
|
||||
;;; Written by Justin Ethier
|
||||
;;;
|
||||
;;; r7rs process-context library
|
||||
;;;
|
||||
|
||||
(define-library (scheme process-context)
|
||||
(export
|
||||
exit
|
||||
exit-fail
|
||||
exit-success
|
||||
emergency-exit
|
||||
get-environment-variable
|
||||
get-environment-variables
|
||||
system)
|
||||
(import (scheme))
|
||||
(begin
|
||||
(define (get-environment-variable var)
|
||||
(let ((var+val (assoc var (get-environment-variables))))
|
||||
(if var+val
|
||||
(cdr var+val)
|
||||
#f)))
|
||||
(define (emergency-exit . obj)
|
||||
(if (or (null? obj)
|
||||
(car obj))
|
||||
(exit-success)
|
||||
(exit-fail)))))
|
Reference in New Issue
Block a user