diff options
| author | aarne <aarne@chalmers.se> | 2010-11-22 15:48:52 +0000 |
|---|---|---|
| committer | aarne <aarne@chalmers.se> | 2010-11-22 15:48:52 +0000 |
| commit | 67176f1520d8ac68a00b5266092fcd31a82f4bd8 (patch) | |
| tree | 6309b8ccfedb458fec7f9772e01b496975e0389f /book/examples/chapter6/ClassesEng.gf | |
| parent | 76ba03b545600054176612201de78dca16eb65e1 (diff) | |
completed book examples
Diffstat (limited to 'book/examples/chapter6/ClassesEng.gf')
| -rw-r--r-- | book/examples/chapter6/ClassesEng.gf | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/book/examples/chapter6/ClassesEng.gf b/book/examples/chapter6/ClassesEng.gf index a282bd87a..5bdf80c35 100644 --- a/book/examples/chapter6/ClassesEng.gf +++ b/book/examples/chapter6/ClassesEng.gf @@ -18,8 +18,8 @@ lin Fan = mkCN (mkN "fan") ; Switchable, Dimmable = <> ; - SwitchOn = mkV2 (mkV "on" (mkV "switch")) ; - SwitchOff = mkV2 (mkV "off" (mkV "switch")) ; + SwitchOn = mkV2 (partV (mkV "switch") "on") ; + SwitchOff = mkV2 (partV (mkV "switch") "off") ; Dim = mkV2 (mkV "dim") ; switchable_Light = <> ; |