Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Add mosh backend for (epcot os misc)

  • Loading branch information...
commit e48df8ba2dc3cb2e2db2b73548df249666bc782d 1 parent 90c3764
@dharmatech authored
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)
+
+ )
+
+
+
+
+
+
Please sign in to comment.
Something went wrong with that request. Please try again.