humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix minor compiler errors

Browse Source
This commit is contained in:
Humza Shahid
2024-08-08 23:45:24 +01:00
parent 4d0d8ef0a1
commit 541fdd877f
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
dotscape
View File

Binary file not shown.

4
functional-core/app-update.sml
View File

@@ -178,7 +178,7 @@ struct
val emptyVec: Real32.real vector = Vector.fromList [] val emptyVec: Real32.real vector = Vector.fromList []
val drawVec = val drawVec =
TriangleStage.firstToVector (x1, y1, emptyVec, model) TriangleStage.firstToVector (x, y, emptyVec, model)
val drawMsg = DRAW_BUTTON drawVec val drawMsg = DRAW_BUTTON drawVec
in in
(model, drawMsg) (model, drawMsg)
@@ -204,7 +204,7 @@ struct
val newTriangleStage = NO_TRIANGLE val newTriangleStage = NO_TRIANGLE
val newTriangle = val newTriangle =
{x1 = x1, y1 = y1, x2 = x2, y2 = y2, x3 = x, y3 = y} {x1 = x1, y1 = y1, x2 = x2, y2 = y2, x3 = x, y3 = y}
val newTriangles = newUndoTuple :: (#triangles model) val newTriangles = newTriangle :: (#triangles model)
val model = val model =
AppWith.redo (model, newTriangleStage, newTriangles, redoHd) AppWith.redo (model, newTriangleStage, newTriangles, redoHd)