Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Fredrik Wieczerkowski
curry-libs
Commits
6f8a79e6
Commit
6f8a79e6
authored
Jan 05, 2020
by
Kai-Oliver Prott
Browse files
Fix existence error when using an external declarations with a context
parent
75979426
Changes
2
Hide whitespace changes
Inline
Side-by-side
Prelude.curry
View file @
6f8a79e6
...
...
@@ -1980,7 +1980,16 @@ doSolve b | b = return ()
--- reduced to a unifiable data term (i.e., a term without defined
--- function symbols).
(=:=) :: Data a => a -> a -> Bool
#ifdef __PAKCS__
(=:=) = constrEq
-- For this operator we cannot remove the Data dictionary in the prolog code
-- Thus, we generalize the type of the external definition.
constrEq :: a -> a -> Bool
constrEq external
#else
(=:=) external
#endif
--- Non-strict equational constraint. Used to implement functional patterns.
(=:<=) :: Data a => a -> a -> Bool
...
...
Prelude.pakcs
View file @
6f8a79e6
...
...
@@ -93,15 +93,15 @@
<library>
prim_standard
</library>
<entry>
prim_failed[raw]
</entry>
</primitive>
<primitive
name=
"
=:=
"
arity=
"2"
>
<primitive
name=
"
constrEq
"
arity=
"2"
>
<library>
prim_standard
</library>
<entry>
constrEq[raw]
</entry>
</primitive>
<primitive
name=
"=:<="
arity=
"
2
"
>
<primitive
name=
"=:<="
arity=
"
3
"
>
<library>
prim_standard
</library>
<entry>
unifEq[raw]
</entry>
</primitive>
<primitive
name=
"=:<<="
arity=
"
2
"
>
<primitive
name=
"=:<<="
arity=
"
3
"
>
<library>
prim_standard
</library>
<entry>
unifEqLinear[raw]
</entry>
</primitive>
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment