So I was taking a shot at porting Mobile Doors by David Corbett. And it begins
Include (-
with mobile false
with mobile_door nothing nothing nothing nothing
with mobile_door_dir [ loc; loc = location;
if (loc == thedark) loc = real_location;
if (loc == (self.&mobile_door)-->0) return (self.&mobile_door)-->3; return (self.&mobile_door)-->2;
]
with mobile_door_to [ loc; loc = location;
if (loc == thedark) loc = real_location;
if (loc == (self.&mobile_door)-->0) return (self.&mobile_door)-->1; return (self.&mobile_door)-->0;
]
-) when defining a door.
of which v10 thinks:
→ Something went wrong late in compilation, when working through the
‘pipeline’ of code-generation steps. (This should not normally happen
unless your source text is making use of ‘(-’ and ‘-)’ and getting that
wrong, or unless you are experimenting with non-standard pipelines.) The
pipeline looks like so:
1. read
2. parse-insertions
3. resolve-conditional-compilation
4. compile-splats
5. load-binary-kits
6. make-synoptic-module
7. shorten-wiring
Problem: unable to find definitions for the following name(s): mobile,
mobile_door, mobile_door_dir, mobile_door_to
8. detect-indirect-calls
9. make-identifiers-unique
10. reconcile-verbs
11. eliminate-redundant-labels
12. eliminate-redundant-operations
13. optionally-generate text ->
14. generate
15. index
v10 still supports Include (- -) when defining a whatever; it’s still mentioned in WI and used in Rideable Vehicles.
Can anyone think of any way it might be persuaded to take this or a rewritten form of this?