diff options
Diffstat (limited to 'src/interp/posit.boot')
| -rw-r--r-- | src/interp/posit.boot | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/interp/posit.boot b/src/interp/posit.boot index b9c546e4..37ab021a 100644 --- a/src/interp/posit.boot +++ b/src/interp/posit.boot @@ -92,6 +92,13 @@ poGetLineObject posn == CAR posn pfGetLineObject posn == poGetLineObject posn +pfSourceStok x== + if pfLeaf? x + then x + else if null pfParts x + then 'NoToken + else pfSourceStok pfFirst x + pfSourceToken form == if pfLeaf? form then pfLeafToken form |