diff --git a/src/Control/Apply.ss b/src/Control/Apply.ss index 0f566879..a31d6fe4 100644 --- a/src/Control/Apply.ss +++ b/src/Control/Apply.ss @@ -3,7 +3,7 @@ (library (Control.Apply foreign) (export arrayApply) (import (only (rnrs base) define lambda let * + set!) - (prefix (purs runtime lib) rt:) + (prefix (purs runtime) rt:) (prefix (purs runtime srfi :214) srfi:214:)) (define arrayApply diff --git a/src/Control/Bind.ss b/src/Control/Bind.ss index f9565cb7..7beae5ff 100644 --- a/src/Control/Bind.ss +++ b/src/Control/Bind.ss @@ -3,7 +3,7 @@ (library (Control.Bind foreign) (export arrayBind) (import (only (rnrs base) define lambda if = + begin let) - (prefix (purs runtime lib) rt:) + (prefix (purs runtime) rt:) (prefix (purs runtime srfi :214) srfi:214:)) (define arrayBind diff --git a/src/Data/Show.ss b/src/Data/Show.ss index b833c291..2ecb91c0 100644 --- a/src/Data/Show.ss +++ b/src/Data/Show.ss @@ -11,7 +11,7 @@ (import (only (rnrs base) define lambda let + = cond else if string number->string string-append) (only (chezscheme) format) - (prefix (purs runtime lib) rt:) + (prefix (purs runtime) rt:) (prefix (purs runtime srfi :214) srfi:214:)) (define showIntImpl diff --git a/src/Data/Show/Generic.ss b/src/Data/Show/Generic.ss index bf6cec3d..b9b8819f 100644 --- a/src/Data/Show/Generic.ss +++ b/src/Data/Show/Generic.ss @@ -3,7 +3,7 @@ (library (Data.Show.Generic foreign) (export intercalate) (import (only (rnrs base) define lambda if let cond else = + string-append) - (prefix (purs runtime lib) rt:)) + (prefix (purs runtime) rt:)) (define intercalate (lambda (separator) diff --git a/src/Record/Unsafe.ss b/src/Record/Unsafe.ss index 4c3b569d..980e1716 100644 --- a/src/Record/Unsafe.ss +++ b/src/Record/Unsafe.ss @@ -6,7 +6,7 @@ unsafeSet unsafeDelete) (import (only (rnrs base) define lambda let) - (prefix (purs runtime lib) rt:) + (prefix (purs runtime) rt:) (prefix (purs runtime srfi :125) srfi:125:)) (define unsafeHas