aboutsummaryrefslogtreecommitdiff
path: root/src/interp/posit.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/posit.boot')
-rw-r--r--src/interp/posit.boot4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/posit.boot b/src/interp/posit.boot
index 77911e8b..d1d80a31 100644
--- a/src/interp/posit.boot
+++ b/src/interp/posit.boot
@@ -1,6 +1,6 @@
-- Copyright (c) 1991-2002, The Numerical ALgorithms Group Ltd.
-- All rights reserved.
--- Copyright (C) 2007-2008, Gabriel Dos Reis.
+-- Copyright (C) 2007-2009, Gabriel Dos Reis.
-- All rights reserved.
--
-- Redistribution and use in source and binary forms, with or without
@@ -46,7 +46,7 @@ $nopos ==
poNoPosition() == $nopos
pfNoPosition() == poNoPosition()
-poNoPosition? pos == EQCAR(pos,'noposition)
+poNoPosition? pos == pos is ["noposition",:.]
pfNoPosition? pos == poNoPosition? pos
pfSourceText pf ==