aboutsummaryrefslogtreecommitdiff
path: root/src/interp/cstream.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/cstream.boot')
-rw-r--r--src/interp/cstream.boot4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/cstream.boot b/src/interp/cstream.boot
index 941faef6..b5ce37fb 100644
--- a/src/interp/cstream.boot
+++ b/src/interp/cstream.boot
@@ -43,8 +43,8 @@ StreamNull x==
null x or x is ["nullstream",:.] => true
while x is ["nonnullstream",:.] repeat
st:=APPLY(second x,CDDR x)
- RPLACA(x,first st)
- RPLACD(x,rest st)
+ x.first := first st
+ x.rest := rest st
x is ["nullstream",:.]
Delay(f,x)==cons("nonnullstream",[f,:x])