Paste: help with cases

Author: kenta ito
Mode: factor
Date: Wed, 25 Apr 2018 22:09:38
Plain Text |
TUPLE: truExpr ;
TUPLE: truValue < truExpr 
 { bool boolean } ;
TUPLE: truNot < truExpr
 { b truExpr } ;

: interp ( truExpr -- boolean ) {
 { [ dup truValue? ] [ truValue bool>> ] }
} case ;

New Annotation

Summary:
Author:
Mode:
Body: