From 8c7c3f42eebed5fffab1a1580921852fab172884 Mon Sep 17 00:00:00 2001 From: Koichi Nakamura Date: Fri, 3 Dec 2021 12:31:08 +0900 Subject: [PATCH] swap over == tuck --- bootstrap.fs | 2 +- lib/array.fs | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/bootstrap.fs b/bootstrap.fs index 53b7d13..56ee17e 100644 --- a/bootstrap.fs +++ b/bootstrap.fs @@ -1893,7 +1893,7 @@ variable inputstreams : push-inputstream ( file -- ) inputstream% %allot \ addr - swap over input>file ! + tuck input>file ! 0 over input>lineno ! inputstreams @ over input>next ! inputstreams ! diff --git a/lib/array.fs b/lib/array.fs index 0109daf..545cbe5 100644 --- a/lib/array.fs +++ b/lib/array.fs @@ -28,8 +28,8 @@ s" Index out of range" exception constant OUT-OF-RANGE export array% %allocate throw ( n capa addr ) over cells allocate throw over array>buf ! - swap over array>capa ! - swap over array>size ! + tuck array>capa ! + tuck array>size ! ; : make-array ( n -- arr )