aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/space.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/space.spad.pamphlet')
-rw-r--r--src/algebra/space.spad.pamphlet10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/algebra/space.spad.pamphlet b/src/algebra/space.spad.pamphlet
index 52c9de91..21428a1f 100644
--- a/src/algebra/space.spad.pamphlet
+++ b/src/algebra/space.spad.pamphlet
@@ -354,11 +354,11 @@ ThreeSpace(R:Ring):Exports == Implementation where
tmplipt : L NNI := []
for point in children curve repeat
tmplipt := cons(extractIndex point,tmplipt)
- tmpllipt := cons(reverse_! tmplipt,tmpllipt)
- llprop := cons(reverse_! tmplprop, llprop)
- lllipt := cons(reverse_! tmpllipt, lllipt)
+ tmpllipt := cons(reverse! tmplipt,tmpllipt)
+ llprop := cons(reverse! tmplprop, llprop)
+ lllipt := cons(reverse! tmpllipt, lllipt)
space.rep3DField := [pointData space.subspaceField,
- reverse_! lllipt,reverse_! llprop,reverse_! lprop]
+ reverse! lllipt,reverse! llprop,reverse! lprop]
space
@@ -524,7 +524,7 @@ ThreeSpace(R:Ring):Exports == Implementation where
-- the sizes for all the curves
whatSizes := brace()$Set(NNI)
for eachCurve in kid repeat
- insert_!(#children eachCurve,whatSizes)
+ insert!(#children eachCurve,whatSizes)
#whatSizes > 1 => error "Mesh defined with curves of different sizes"
first parts whatSizes < 2 =>
error "Mesh defined with single point curves (use curve())"