remove code that became dead as a result of the previous refactoring (to make files loadable from terminal)

This commit is contained in:
2025-08-26 16:29:11 +01:00
parent 4a8ff38a66
commit f306501a68
3 changed files with 2 additions and 10 deletions

BIN
dsc

Binary file not shown.

File diff suppressed because one or more lines are too long

View File

@@ -8,11 +8,6 @@ struct
open FileMessage
open InputMessage
val structureName = "Green"
val filename = "green.dsc"
val exportFilename = "green.sml"
val collisionFilename = "green-collisions.sml"
fun loadIO (io, str) =
case TextIO.inputLine io of
SOME line => loadIO (io, str ^ line)
@@ -20,7 +15,7 @@ struct
fun loadSquares (path, inputMailbox) =
let
val io = TextIO.openIn filename
val io = TextIO.openIn path
val str = loadIO (io, "")
val () = TextIO.closeIn io
in
@@ -52,7 +47,7 @@ struct
SAVE_SQUARES {filepath, output} => saveString (filepath, output)
| EXPORT_SQUARES {filepath, output} => saveString (filepath, output)
| EXPORT_COLLISIONS {filepath, output} => saveString (filepath, output)
| LOAD_SQUARES filename => loadSquares (filename, inputMailbox)
| LOAD_SQUARES {filepath} => loadSquares (filepath, inputMailbox)
in
run (fileMailbox, inputMailbox)
end