diff options
Diffstat (limited to 'sucl/basic.icl')
| -rw-r--r-- | sucl/basic.icl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/sucl/basic.icl b/sucl/basic.icl index a8bfcdf..0953741 100644 --- a/sucl/basic.icl +++ b/sucl/basic.icl @@ -255,5 +255,10 @@ split sep = ([x:ys],yss) where (ys,yss) = spl xs +// `Stub modulename functionname message' aborts with a explanatory message +stub :: .String .String .String -> a +stub modulename functionname message += abort (modulename+++": "+++functionname+++": "+++message) + superset :: .[a] -> .(.[a] -> Bool) | == a superset set = isEmpty o (removeMembers set) |