aboutsummaryrefslogtreecommitdiff
path: root/src/algebra/clip.spad.pamphlet
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra/clip.spad.pamphlet')
-rw-r--r--src/algebra/clip.spad.pamphlet4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/clip.spad.pamphlet b/src/algebra/clip.spad.pamphlet
index d4eaf937..6be59d84 100644
--- a/src/algebra/clip.spad.pamphlet
+++ b/src/algebra/clip.spad.pamphlet
@@ -89,10 +89,10 @@ TwoDimensionalPlotClipping(): Exports == Implementation where
norm: Pt -> SF
iClipParametric: (L L Pt,RN,RN) -> CLIPPED
findPt: L L Pt -> Union(Pt,"failed")
- Fnan?: SF ->Boolean
Pnan?:Pt ->Boolean
- Fnan? x == x~=x
+ Fnan?(x: SF): Boolean == %fNaN?(x)$Foreign(Builtin)
+
Pnan? p == any?(Fnan?,p)
iClipParametric(pointLists,fraction,scale) ==