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 a508599..425f29f 100644 --- a/sucl/basic.icl +++ b/sucl/basic.icl @@ -27,6 +27,11 @@ Implementation // Now using Optional type from cocl's general module from general import Optional,No,Yes +instance == (Optional a) | == a + where (==) No No = True + (==) (Yes x1) (Yes x2) = x1==x2 + (==) _ _ = False + // Adjust a function for a single argument |