Commit 139c98e0 authored by John van Groningen's avatar John van Groningen Committed by Camil Staps

add fflush

parent 831f919f
......@@ -273,3 +273,5 @@ sfposition :: !File -> Int
* Change a file so that from now it can only be used with `sf...` operations.
*/
fshare :: !*File -> File
fflush :: !*File -> (!Bool,!*File)
......@@ -482,9 +482,7 @@ instance FileEnv World where
appFiles :: !.(*Files -> *Files) !*World -> *World
appFiles appfun world
#! files1=create_files
// RWS ... #! files=appfun files
files=appfun files1
// .. RWS
= do_files files world
where
do_files :: !*Files !*World -> *World
......@@ -495,3 +493,10 @@ instance FileEnv World where
}
create_files :== Files;
fflush :: !*File -> (!Bool,!*File)
fflush f = code {
.d 0 2 f
jsr flushF
.o 0 3 bf
}
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment