summaryrefslogtreecommitdiff
path: root/book/examples/chapter8/GeometryEng.gf
diff options
context:
space:
mode:
Diffstat (limited to 'book/examples/chapter8/GeometryEng.gf')
-rw-r--r--book/examples/chapter8/GeometryEng.gf13
1 files changed, 0 insertions, 13 deletions
diff --git a/book/examples/chapter8/GeometryEng.gf b/book/examples/chapter8/GeometryEng.gf
deleted file mode 100644
index e2e22776e..000000000
--- a/book/examples/chapter8/GeometryEng.gf
+++ /dev/null
@@ -1,13 +0,0 @@
---# -path=.:present
-
-concrete GeometryEng of Geometry = LogicEng **
- open SyntaxEng, ParadigmsEng in {
-lin
- Line = mkCN (mkN "line") ;
- Point = mkCN (mkN "point") ;
- Circle = mkCN (mkN "circle") ;
- Intersect = pred (mkV2 "intersect") ;
- Parallel = pred (mkA2 (mkA "parallel") (mkPrep "to")) ;
- Vertical = pred (mkA "vertical") ;
- Centre = app (mkN2 (mkN "centre") (mkPrep "of")) ;
-}