! Copyright (C) 2011 Erich Atlas Ocean.
! See http://factorcode.org/license.txt for BSD license.
USING:
    alien
    alien.c-types
    alien.libraries
    alien.syntax
    classes.struct
    io.encodings.ascii
    combinators
    kernel
    system
    owl
    math
    fry
    io prettyprint math.parser
 ;

IN: recap2houdini

: print-owl-error ( s n -- )
    {
        { [ dup 0 < ] '[ _ write ": " _ . ] }
        { [ dup OWL_NO_ERROR = ]          [ drop write ": No Error" . ] }
        { [ dup OWL_INVALID_VALUE = ]     [ drop write ": Invalid Value" . ] }
        { [ dup OWL_INVALID_ENUM = ]      [ drop write ": Invalid Enum" . ] }
        { [ dup OWL_INVALID_OPERATION = ] [ drop write ": Invalid Operation" . ] }
        '[ _ write ": 0x" write _ >hex . ]
    } cond ;

! Gets this error: Generic word infer-branch does not define a method for the array class.