! 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 locals ; IN: recap2houdini :: print-owl-error ( s n -- ) { { [ n 0 < ] [ s write ": " n . ] } { [ n OWL_NO_ERROR = ] [ s write ": No Error" . ] } { [ n OWL_INVALID_VALUE = ] [ s write ": Invalid Value" . ] } { [ n OWL_INVALID_ENUM = ] [ s write ": Invalid Enum" . ] } { [ n OWL_INVALID_OPERATION = ] [ s write ": Invalid Operation" . ] } [ s write ": 0x" write n >hex . ] } cond ; ! The input quotations to “if” don't match their expected effects