diff --git a/arrays/src/Data/Array.ss b/arrays/src/Data/Array.ss index b5177916..9f6dfe01 100644 --- a/arrays/src/Data/Array.ss +++ b/arrays/src/Data/Array.ss @@ -26,8 +26,8 @@ ) (import (except (chezscheme) length reverse) (only (rnrs sorting) vector-sort!) - (prefix (purs runtime) rt:) - (prefix (purs runtime srfi :214) srfi:214:)) + (prefix (purescm runtime) rt:) + (prefix (srfi :214) srfi:214:)) ;;------------------------------------------------------------------------------ ;; Array creation -------------------------------------------------------------- diff --git a/arrays/src/Data/Array/NonEmpty/Internal.ss b/arrays/src/Data/Array/NonEmpty/Internal.ss index 6262f428..4c07f091 100644 --- a/arrays/src/Data/Array/NonEmpty/Internal.ss +++ b/arrays/src/Data/Array/NonEmpty/Internal.ss @@ -4,8 +4,8 @@ traverse1Impl) (import (only (rnrs base) define lambda list cons let if) (only (chezscheme) fx- fx< fx>= fx1- fx1+) - (prefix (purs runtime) rt:) - (prefix (purs runtime srfi :214) srfi:214:)) + (prefix (purescm runtime) rt:) + (prefix (srfi :214) srfi:214:)) (define foldr1Impl (lambda (f xs) diff --git a/arrays/src/Data/Array/ST.ss b/arrays/src/Data/Array/ST.ss index e521133c..0641659c 100644 --- a/arrays/src/Data/Array/ST.ss +++ b/arrays/src/Data/Array/ST.ss @@ -17,8 +17,8 @@ freezeImpl) (import (chezscheme) (only (rnrs sorting) vector-sort!) - (prefix (purs runtime) rt:) - (prefix (purs runtime srfi :214) srfi:214:)) + (prefix (purescm runtime) rt:) + (prefix (srfi :214) srfi:214:)) (define new (lambda () (rt:make-array))) diff --git a/arrays/src/Data/Array/ST/Partial.ss b/arrays/src/Data/Array/ST/Partial.ss index e6c65352..dadd8cb1 100644 --- a/arrays/src/Data/Array/ST/Partial.ss +++ b/arrays/src/Data/Array/ST/Partial.ss @@ -1,8 +1,8 @@ (library (Data.Array.ST.Partial foreign) (export peekImpl pokeImpl) (import (only (rnrs base) define lambda quote) - (prefix (purs runtime) rt:) - (prefix (purs runtime srfi :214) srfi:214:)) + (prefix (purescm runtime) rt:) + (prefix (srfi :214) srfi:214:)) (define peekImpl (lambda (i xs) diff --git a/assert/src/Test/Assert.ss b/assert/src/Test/Assert.ss index ad17f67e..ef27b2c9 100644 --- a/assert/src/Test/Assert.ss +++ b/assert/src/Test/Assert.ss @@ -1,7 +1,7 @@ (library (Test.Assert foreign) (export assertImpl checkThrows) (import (chezscheme) - (only (purs runtime pstring) pstring->string)) + (only (purescm pstring) pstring->string)) (define assertImpl (lambda (message) diff --git a/console/src/Effect/Console.ss b/console/src/Effect/Console.ss index 8ec7e34c..409f8298 100644 --- a/console/src/Effect/Console.ss +++ b/console/src/Effect/Console.ss @@ -12,7 +12,7 @@ debug) (import (only (rnrs base) define lambda begin) (prefix (rnrs base) scm:) - (only (purs runtime pstring) pstring->string) + (only (purescm pstring) pstring->string) (only (rnrs io ports) current-output-port current-error-port put-string) (only (rnrs io simple) newline)) diff --git a/control/src/Control/Extend.ss b/control/src/Control/Extend.ss index de36d57d..61722ca5 100644 --- a/control/src/Control/Extend.ss +++ b/control/src/Control/Extend.ss @@ -3,7 +3,7 @@ (library (Control.Extend foreign) (export arrayExtend) (import (only (rnrs base) define lambda) - (prefix (purs runtime srfi :214) srfi:214:)) + (prefix (srfi :214) srfi:214:)) (define arrayExtend (lambda (f) diff --git a/datetime/src/Data/DateTime.ss b/datetime/src/Data/DateTime.ss index f59efffe..a2d22d2d 100644 --- a/datetime/src/Data/DateTime.ss +++ b/datetime/src/Data/DateTime.ss @@ -4,7 +4,7 @@ (export calcDiff adjustImpl) (import (only (rnrs base) define lambda let let*) - (prefix (purs runtime) rt:) + (prefix (purescm runtime) rt:) (prefix (chezscheme) scm:)) ;; Note: make-date in chez has a lower bound at 1901: diff --git a/effect/src/Effect.ss b/effect/src/Effect.ss index 744a4cdc..16d252f7 100644 --- a/effect/src/Effect.ss +++ b/effect/src/Effect.ss @@ -10,7 +10,7 @@ (import (only (rnrs base) define lambda quote not) (only (rnrs arithmetic fixnums) fx+ fx>=?) (only (rnrs control) do) - (prefix (purs runtime srfi :214) srfi:214:)) + (prefix (srfi :214) srfi:214:)) (define pureE (lambda (a) diff --git a/exceptions/src/Effect/Exception.ss b/exceptions/src/Effect/Exception.ss index 29b5c391..6c1948d4 100644 --- a/exceptions/src/Effect/Exception.ss +++ b/exceptions/src/Effect/Exception.ss @@ -16,7 +16,7 @@ make-message-condition condition? message-condition?) - (only (purs runtime pstring) pstring->string string->pstring) + (only (purescm pstring) pstring->string string->pstring) (only (rnrs io ports) call-with-string-output-port) (only (rnrs exceptions) with-exception-handler raise-continuable) (only (chezscheme) format call/cc display-condition)) diff --git a/foldable-traversable/src/Data/Foldable.ss b/foldable-traversable/src/Data/Foldable.ss index 3931ff77..4408bddc 100644 --- a/foldable-traversable/src/Data/Foldable.ss +++ b/foldable-traversable/src/Data/Foldable.ss @@ -4,7 +4,7 @@ (export foldrArray foldlArray) (import (only (rnrs base) define lambda) - (prefix (purs runtime srfi :214) srfi:214:)) + (prefix (srfi :214) srfi:214:)) (define foldrArray (lambda (f) diff --git a/foldable-traversable/src/Data/FunctorWithIndex.ss b/foldable-traversable/src/Data/FunctorWithIndex.ss index 13851210..12979fd8 100644 --- a/foldable-traversable/src/Data/FunctorWithIndex.ss +++ b/foldable-traversable/src/Data/FunctorWithIndex.ss @@ -3,7 +3,7 @@ (library (Data.FunctorWithIndex foreign) (export mapWithIndexArray) (import (only (rnrs base) define lambda) - (prefix (purs runtime srfi :214) srfi:214:)) + (prefix (srfi :214) srfi:214:)) (define mapWithIndexArray (lambda (f) diff --git a/foldable-traversable/src/Data/Traversable.ss b/foldable-traversable/src/Data/Traversable.ss index 77042447..ccd21cd5 100644 --- a/foldable-traversable/src/Data/Traversable.ss +++ b/foldable-traversable/src/Data/Traversable.ss @@ -3,8 +3,8 @@ (library (Data.Traversable foreign) (export traverseArrayImpl) (import (only (rnrs base) define lambda cons quote) - (prefix (purs runtime) rt:) - (prefix (purs runtime srfi :214) srfi:214:)) + (prefix (purescm runtime) rt:) + (prefix (srfi :214) srfi:214:)) (define kons (lambda (x) diff --git a/foldable-traversable/test/Main.ss b/foldable-traversable/test/Main.ss index 9fd2e8cb..223ddff3 100644 --- a/foldable-traversable/test/Main.ss +++ b/foldable-traversable/test/Main.ss @@ -4,8 +4,8 @@ mkNEArray foldMap1NEArray) (import (chezscheme) - (prefix (purs runtime) rt:) - (prefix (purs runtime srfi :214) srfi:214:)) + (prefix (purescm runtime) rt:) + (prefix (srfi :214) srfi:214:)) (define arrayFrom1UpTo (lambda (n) diff --git a/foreign-object/src/Foreign/Object.ss b/foreign-object/src/Foreign/Object.ss index 3f263157..9834e302 100644 --- a/foreign-object/src/Foreign/Object.ss +++ b/foreign-object/src/Foreign/Object.ss @@ -17,9 +17,9 @@ keys) (import (only (rnrs base) define lambda if let let* let-values begin) (prefix (chezscheme) scm:) - (prefix (purs runtime) rt:) - (prefix (purs runtime srfi :214) arrays:) - (only (purs runtime pstring) pstring->symbol symbol->pstring)) + (prefix (purescm runtime) rt:) + (prefix (srfi :214) arrays:) + (only (purescm pstring) pstring->symbol symbol->pstring)) (define _copyST (lambda (m) diff --git a/foreign-object/src/Foreign/Object/ST.ss b/foreign-object/src/Foreign/Object/ST.ss index 7583af1b..683cdf2d 100644 --- a/foreign-object/src/Foreign/Object/ST.ss +++ b/foreign-object/src/Foreign/Object/ST.ss @@ -7,8 +7,8 @@ delete) (import (only (rnrs base) define lambda if let) (prefix (chezscheme) scm:) - (prefix (purs runtime) rt:) - (only (purs runtime pstring) pstring->symbol)) + (prefix (purescm runtime) rt:) + (only (purescm pstring) pstring->symbol)) (define remove-1st (lambda (x ls) diff --git a/foreign-object/src/Foreign/Object/Unsafe.ss b/foreign-object/src/Foreign/Object/Unsafe.ss index cd126d09..60653a3e 100644 --- a/foreign-object/src/Foreign/Object/Unsafe.ss +++ b/foreign-object/src/Foreign/Object/Unsafe.ss @@ -4,8 +4,8 @@ (export unsafeIndex) (import (only (rnrs base) define lambda if) (prefix (chezscheme) scm:) - (prefix (purs runtime) rt:) - (only (purs runtime pstring) pstring->symbol)) + (prefix (purescm runtime) rt:) + (only (purescm pstring) pstring->symbol)) (define unsafeIndex (lambda (m) diff --git a/integers/src/Data/Int.ss b/integers/src/Data/Int.ss index f3678c04..36e753d3 100644 --- a/integers/src/Data/Int.ss +++ b/integers/src/Data/Int.ss @@ -12,7 +12,7 @@ (only (rnrs arithmetic flonums) fixnum->flonum fltruncate fl=?) (only (chezscheme) format flonum->fixnum fixnum? fx=? fx/ fxremainder expt with-exception-handler string-append number->string string->number) - (only (purs runtime pstring) pstring->string string->pstring)) + (only (purescm pstring) pstring->string string->pstring)) (define fromNumberImpl (lambda (just) diff --git a/json/src/JSON/Array.ss b/json/src/JSON/Array.ss index 57801797..f20e58fd 100644 --- a/json/src/JSON/Array.ss +++ b/json/src/JSON/Array.ss @@ -1,7 +1,7 @@ (library (JSON.Array foreign) (export singleton) (import (chezscheme) - (prefix (purs runtime srfi :214) srfi:214:)) + (prefix (srfi :214) srfi:214:)) (define (singleton x) (srfi:214:flexvector x)) diff --git a/json/src/JSON/Internal.ss b/json/src/JSON/Internal.ss index a2fe92c6..e63d95c0 100644 --- a/json/src/JSON/Internal.ss +++ b/json/src/JSON/Internal.ss @@ -19,8 +19,8 @@ json-parse json-stringify) (import (except (chezscheme) length) - (prefix (purs runtime srfi :214) srfi:214:) - (purs runtime pstring)) + (prefix (srfi :214) srfi:214:) + (purescm pstring)) (define (_parse left right s) (call/cc diff --git a/json/test/Main.ss b/json/test/Main.ss index 9cab4afa..fc6a698d 100644 --- a/json/test/Main.ss +++ b/json/test/Main.ss @@ -1,9 +1,9 @@ (library (Test.JSON.Main foreign) (export testJsonParser) (import (chezscheme) - (prefix (purs runtime) rt:) - (prefix (purs runtime srfi :214) srfi:214:) - (purs runtime pstring) + (prefix (purescm runtime) rt:) + (prefix (srfi :214) srfi:214:) + (purescm pstring) (only (JSON.Internal foreign) json-parse json-stringify)) (define (assert-parsed input expected) diff --git a/minibench/src/Performance/Minibench.ss b/minibench/src/Performance/Minibench.ss index aa220303..6955f93f 100644 --- a/minibench/src/Performance/Minibench.ss +++ b/minibench/src/Performance/Minibench.ss @@ -7,7 +7,7 @@ ) (import (chezscheme) - (only (purs runtime pstring) string->pstring) + (only (purescm pstring) string->pstring) ) (define timeNs diff --git a/numbers/src/Data/Number.ss b/numbers/src/Data/Number.ss index 8edbcac7..02e6750d 100644 --- a/numbers/src/Data/Number.ss +++ b/numbers/src/Data/Number.ss @@ -31,7 +31,7 @@ (only (chezscheme) flabs flacos flasin flatan flceiling flcos flexp flpositive? flfloor fllog flmax flmin flexpt flmod flround fl- fl= fl< flsin flsqrt fltan fltruncate flonum? fixnum? fixnum->flonum) - (only (purs runtime pstring) pstring->number)) + (only (purescm pstring) pstring->number)) (define nan +nan.0) diff --git a/numbers/src/Data/Number/Format.ss b/numbers/src/Data/Number/Format.ss index e2c0086c..9c9d6f58 100644 --- a/numbers/src/Data/Number/Format.ss +++ b/numbers/src/Data/Number/Format.ss @@ -7,7 +7,7 @@ toString) (import (only (rnrs base) define lambda string-append number->string) (only (chezscheme) format) - (only (purs runtime pstring) string->pstring)) + (only (purescm pstring) string->pstring)) ;; TODO add a proper implementation (define toPrecisionNative diff --git a/partial/src/Partial.ss b/partial/src/Partial.ss index 8bac592a..8856d7bc 100644 --- a/partial/src/Partial.ss +++ b/partial/src/Partial.ss @@ -3,7 +3,7 @@ (library (Partial foreign) (export _crashWith) (import (only (rnrs base) define lambda error) - (only (purs runtime pstring) pstring->string)) + (only (purescm pstring) pstring->string)) (define _crashWith (lambda (msg) diff --git a/prelude/src/Control/Apply.ss b/prelude/src/Control/Apply.ss index a31d6fe4..bbf30f36 100644 --- a/prelude/src/Control/Apply.ss +++ b/prelude/src/Control/Apply.ss @@ -3,8 +3,8 @@ (library (Control.Apply foreign) (export arrayApply) (import (only (rnrs base) define lambda let * + set!) - (prefix (purs runtime) rt:) - (prefix (purs runtime srfi :214) srfi:214:)) + (prefix (purescm runtime) rt:) + (prefix (srfi :214) srfi:214:)) (define arrayApply (lambda (fs) diff --git a/prelude/src/Control/Bind.ss b/prelude/src/Control/Bind.ss index 18d70ab7..1f282078 100644 --- a/prelude/src/Control/Bind.ss +++ b/prelude/src/Control/Bind.ss @@ -3,8 +3,8 @@ (library (Control.Bind foreign) (export arrayBind) (import (chezscheme) - (prefix (purs runtime) rt:) - (prefix (purs runtime srfi :214) srfi:214:)) + (prefix (purescm runtime) rt:) + (prefix (srfi :214) srfi:214:)) (define arrayBind (lambda (arr) diff --git a/prelude/src/Data/Eq.ss b/prelude/src/Data/Eq.ss index 270cb6cd..bd3aadfe 100644 --- a/prelude/src/Data/Eq.ss +++ b/prelude/src/Data/Eq.ss @@ -9,8 +9,8 @@ eqArrayImpl) (import (chezscheme)) (import (only (rnrs base) define lambda) - (only (purs runtime pstring) pstring=?) - (prefix (purs runtime srfi :214) srfi:214:)) + (only (purescm pstring) pstring=?) + (prefix (srfi :214) srfi:214:)) (define eqBooleanImpl (lambda (r1) diff --git a/prelude/src/Data/Functor.ss b/prelude/src/Data/Functor.ss index 199d71dd..06342e6b 100644 --- a/prelude/src/Data/Functor.ss +++ b/prelude/src/Data/Functor.ss @@ -3,7 +3,7 @@ (library (Data.Functor foreign) (export arrayMap) (import (only (rnrs base) define lambda) - (prefix (purs runtime srfi :214) srfi:214:)) + (prefix (srfi :214) srfi:214:)) (define arrayMap (lambda (f) diff --git a/prelude/src/Data/Ord.ss b/prelude/src/Data/Ord.ss index b359886f..02900188 100644 --- a/prelude/src/Data/Ord.ss +++ b/prelude/src/Data/Ord.ss @@ -8,8 +8,8 @@ ordCharImpl ordArrayImpl) (import (chezscheme) - (only (purs runtime pstring) pstringpstring string->pstring pstring-uncons-char @@ -16,7 +16,7 @@ pstring-concat pstring-make-regex pstring-regex-replace-by) - (prefix (purs runtime srfi :214) srfi:214:)) + (prefix (srfi :214) srfi:214:)) (define showIntImpl (lambda (n) diff --git a/prelude/src/Data/Show/Generic.ss b/prelude/src/Data/Show/Generic.ss index 80da51d9..3ed92b84 100644 --- a/prelude/src/Data/Show/Generic.ss +++ b/prelude/src/Data/Show/Generic.ss @@ -3,8 +3,8 @@ (library (Data.Show.Generic foreign) (export intercalate) (import (chezscheme) - (only (purs runtime pstring) pstring pstring-concat) - (prefix (purs runtime) rt:)) + (only (purescm pstring) pstring pstring-concat) + (prefix (purescm runtime) rt:)) (define intercalate (lambda (separator) diff --git a/prelude/src/Record/Unsafe.ss b/prelude/src/Record/Unsafe.ss index 54c9a336..c0f07d8e 100644 --- a/prelude/src/Record/Unsafe.ss +++ b/prelude/src/Record/Unsafe.ss @@ -6,8 +6,8 @@ unsafeSet unsafeDelete) (import (chezscheme) - (only (purs runtime pstring) pstring->symbol) - (prefix (purs runtime) rt:)) + (only (purescm pstring) pstring->symbol) + (prefix (purescm runtime) rt:)) (define unsafeHas (lambda (label) diff --git a/prelude/test/Test/Utils.ss b/prelude/test/Test/Utils.ss index bf09598c..73fbdbb1 100644 --- a/prelude/test/Test/Utils.ss +++ b/prelude/test/Test/Utils.ss @@ -1,6 +1,6 @@ (library (Test.Utils foreign) (export throwErr) - (import (chezscheme) (only (purs runtime pstring) pstring->string)) + (import (chezscheme) (only (purescm pstring) pstring->string)) (define throwErr (lambda (msg) diff --git a/record/src/Record/Builder.ss b/record/src/Record/Builder.ss index ca23d32e..0defb637 100644 --- a/record/src/Record/Builder.ss +++ b/record/src/Record/Builder.ss @@ -1,8 +1,8 @@ (library (Record.Builder foreign) (export unsafeInsert unsafeModify unsafeDelete unsafeRename) (import (chezscheme) - (prefix (purs runtime) rt:) - (only (purs runtime pstring) pstring->symbol)) + (prefix (purescm runtime) rt:) + (only (purescm pstring) pstring->symbol)) (define unsafeInsert (lambda (l) diff --git a/record/src/Record/Unsafe/Union.ss b/record/src/Record/Unsafe/Union.ss index 9907cc46..e2e96331 100644 --- a/record/src/Record/Unsafe/Union.ss +++ b/record/src/Record/Unsafe/Union.ss @@ -1,7 +1,7 @@ (library (Record.Unsafe.Union foreign) (export unsafeUnionFn) (import (chezscheme) - (prefix (purs runtime) rt:)) + (prefix (purescm runtime) rt:)) (define unsafeUnionFn append) diff --git a/refs/src/Effect/Ref.ss b/refs/src/Effect/Ref.ss index 35bca895..412d7c34 100644 --- a/refs/src/Effect/Ref.ss +++ b/refs/src/Effect/Ref.ss @@ -7,7 +7,7 @@ modifyImpl write) (import (prefix (chezscheme) scm:) - (prefix (purs runtime) rt:)) + (prefix (purescm runtime) rt:)) (scm:define _new (scm:lambda (v) diff --git a/st/src/Control/Monad/ST/Internal.ss b/st/src/Control/Monad/ST/Internal.ss index 072044e7..797b1ffc 100644 --- a/st/src/Control/Monad/ST/Internal.ss +++ b/st/src/Control/Monad/ST/Internal.ss @@ -3,8 +3,8 @@ new foreach modifyImpl write) (import (except (chezscheme) read write) - (prefix (purs runtime srfi :214) srfi:214:) - (prefix (purs runtime) rt:)) + (prefix (srfi :214) srfi:214:) + (prefix (purescm runtime) rt:)) (define map_ (lambda (f) diff --git a/strings/src/Data/String/CodePoints.ss b/strings/src/Data/String/CodePoints.ss index cc333671..15c8160c 100644 --- a/strings/src/Data/String/CodePoints.ss +++ b/strings/src/Data/String/CodePoints.ss @@ -10,9 +10,9 @@ _uncons) (import (except (chezscheme) length) - (prefix (purs runtime) rt:) - (prefix (purs runtime srfi :214) srfi:214:) - (only (purs runtime pstring) code-points->pstring + (prefix (purescm runtime) rt:) + (prefix (srfi :214) srfi:214:) + (only (purescm pstring) code-points->pstring pstring->code-point-flexvector pstring-empty? pstring-length-code-points diff --git a/strings/src/Data/String/CodeUnits.ss b/strings/src/Data/String/CodeUnits.ss index 77f760d1..02e09f4d 100644 --- a/strings/src/Data/String/CodeUnits.ss +++ b/strings/src/Data/String/CodeUnits.ss @@ -19,7 +19,7 @@ splitAt) (import (except (chezscheme) length) - (only (purs runtime pstring) pstring-empty? + (only (purescm pstring) pstring-empty? pstring-singleton pstring-slice pstring-length @@ -32,7 +32,7 @@ pstring-last-index-of char-flexvector->pstring pstring->char-flexvector) - (prefix (purs runtime) rt:)) + (prefix (purescm runtime) rt:)) (define fromCharArray char-flexvector->pstring) diff --git a/strings/src/Data/String/Common.ss b/strings/src/Data/String/Common.ss index 62106892..a16e13cb 100644 --- a/strings/src/Data/String/Common.ss +++ b/strings/src/Data/String/Common.ss @@ -3,7 +3,7 @@ (export _localeCompare replace replaceAll split toLower toUpper trim joinWith) (import (only (rnrs base) define lambda if) - (only (purs runtime pstring) pstringpstring) - (prefix (purs runtime srfi :214) srfi:214:) - (prefix (purs runtime) rt:)) + (prefix (srfi :214) srfi:214:) + (prefix (purescm runtime) rt:)) ;; NOTE: this doesn't include the flags as they are not part of the regex string (define showRegexImpl regex-source) diff --git a/strings/src/Data/String/Unsafe.ss b/strings/src/Data/String/Unsafe.ss index f701b79a..a722b0cf 100644 --- a/strings/src/Data/String/Unsafe.ss +++ b/strings/src/Data/String/Unsafe.ss @@ -1,7 +1,7 @@ (library (Data.String.Unsafe foreign) (export charAt char) (import (only (chezscheme) define lambda let-values) - (only (purs runtime pstring) pstring-ref pstring-singleton pstring-uncons-char)) + (only (purescm pstring) pstring-ref pstring-singleton pstring-uncons-char)) (define charAt (lambda (n) diff --git a/unfoldable/src/Data/Unfoldable.ss b/unfoldable/src/Data/Unfoldable.ss index 0a67b0b5..9dd3fd0c 100644 --- a/unfoldable/src/Data/Unfoldable.ss +++ b/unfoldable/src/Data/Unfoldable.ss @@ -3,7 +3,7 @@ (library (Data.Unfoldable foreign) (export unfoldrArrayImpl) (import (only (rnrs base) define lambda) - (prefix (purs runtime srfi :214) srfi:214:)) + (prefix (srfi :214) srfi:214:)) (define unfoldrArrayImpl (lambda (isNothing) diff --git a/unfoldable/src/Data/Unfoldable1.ss b/unfoldable/src/Data/Unfoldable1.ss index 5a43840c..f94d4c87 100644 --- a/unfoldable/src/Data/Unfoldable1.ss +++ b/unfoldable/src/Data/Unfoldable1.ss @@ -3,7 +3,7 @@ (library (Data.Unfoldable1 foreign) (export unfoldr1ArrayImpl) (import (only (rnrs base) define if lambda let) - (prefix (purs runtime srfi :214) srfi:214:)) + (prefix (srfi :214) srfi:214:)) (define unfoldr1ArrayImpl (lambda (isNothing)