factor: use ??if instead of ?if-old

[factor.git] / extra / gml / b-rep / b-rep.factor

diff --git a/extra/gml/b-rep/b-rep.factor b/extra/gml/b-rep/b-rep.factor
index cd3609391fc9f1ce52727cdeb90604159b3ceb0f..da4391272bd7c979761352939a73dfd93f45626a 100644 (file)
--- a/extra/gml/b-rep/b-rep.factor
+++ b/extra/gml/b-rep/b-rep.factor
@@ -43,7 +43,7 @@ GML: faceCCW ( e0 -- e1 ) face-ccw ;
 
 GML: baseface ( e0 -- e1 ) base-face>> ;
 
-GML: nextring ( e0 -- e1 ) dup next-ring>> [ ] [ base-face>> ] ?if ;
+GML: nextring ( e0 -- e1 ) [ next-ring>> ] [ base-face>> ] ?unless ;
 
 GML: facenormal ( e0 -- n ) face-normal ;
 GML: faceplanedist ( e0 -- d ) face-plane-dist ;