Permalink
Browse files

Add mosh backend for (epcot os misc)

  • Loading branch information...
1 parent 90c3764 commit e48df8ba2dc3cb2e2db2b73548df249666bc782d @dharmatech committed Aug 21, 2009
Showing with 30 additions and 0 deletions.
  1. +30 −0 os/misc.mosh.sls
View
30 os/misc.mosh.sls
@@ -0,0 +1,30 @@
+
+(library (epcot os misc)
+
+ (export current-directory
+ system
+ getenv)
+
+ (import (rnrs)
+ (rename (mosh) (current-directory mosh:current-directory))
+ (mosh process)
+ (srfi :98))
+
+ (define current-directory
+ (case-lambda
+ (() (mosh:current-directory))
+ ((path) (set-current-directory! path))))
+
+ (define (system command)
+ (waitpid
+ (spawn "sh" (list "-c" command))))
+
+ (define getenv get-environment-variable)
+
+ )
+
+
+
+
+
+

0 comments on commit e48df8b

Please sign in to comment.