aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/stream.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/stream.spad.pamphlet')
-rw-r--r--src/algebra/stream.spad.pamphlet6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/algebra/stream.spad.pamphlet b/src/algebra/stream.spad.pamphlet
index 2056d151..3d5159ea 100644
--- a/src/algebra/stream.spad.pamphlet
+++ b/src/algebra/stream.spad.pamphlet
@@ -914,7 +914,7 @@ Stream(S): Exports == Implementation where
--% RCAGG functions
empty() ==
- %makepair(NullStream,%nil$Foreign(Builtin))$Foreign(Builtin)
+ %pair(NullStream,%nil$Foreign(Builtin))$Foreign(Builtin)
lazyEval(x: %): % ==
(rst(x):(()-> %)) ()
@@ -949,7 +949,7 @@ Stream(S): Exports == Implementation where
(concat(frst x, first(rst x,(n-1) :: NNI)))
concat(s:S,x:%) ==
- %makepair(s,x)$Foreign(Builtin)
+ %pair(s,x)$Foreign(Builtin)
cons(s,x) == concat(s,x)
@@ -1070,7 +1070,7 @@ Stream(S): Exports == Implementation where
[true, npp, periode]
delay(fs:()->%) ==
- %makepair(NonNullStream,fs)$Foreign(Builtin)
+ %pair(NonNullStream,fs)$Foreign(Builtin)
explicitEntries? x ==
not explicitlyEmpty? x and not lazy? x