mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-16 09:53:36 +00:00
0d9317425a
Estimated hours taken: 6
(Committed by fjh on behalf of Erwan Jahier.)
morphine/*:
morphine/non_regression_tests/*:
morphine/source/*:
Rename all occurrences of Opium-M by Morphine.
morphine/source/:
Rename opium_m_kernel.op into morphine_kernel.op, load_opium.pl
into load_morphine.pl and load_opium_without_banner.pl into
load_morphine_without_banner.pl.
26 lines
931 B
Plaintext
26 lines
931 B
Plaintext
%------------------------------------------------------------------------------%
|
|
% Copyright (C) 1999 INRIA/INSA.
|
|
--- /soft/eclipse/eclipse4.1/lib_pd/opium_light/error.op Sat Feb 20 16:09:16 1999
|
|
+++ error.op Thu Nov 4 08:59:34 1999
|
|
@@ -26,8 +26,8 @@
|
|
:- tool(check_arg_type/4, check_arg_type/5).
|
|
:- global check_arg_type/4.
|
|
:- call_explicit(traceable check_arg_type/4, sepia_kernel).
|
|
-:- ((call(is_predicate(current_options/1), opium_kernel),
|
|
- call(current_options([active, traceable, _]), opium_kernel)) ->
|
|
+:- ((call(is_predicate(current_options/1), morphine),
|
|
+ call(current_options([active, traceable, _]), morphine)) ->
|
|
call_explicit(unskipped check_arg_type/4, sepia_kernel)
|
|
;
|
|
call_explicit(skipped check_arg_type/4, sepia_kernel)
|
|
@@ -109,6 +109,9 @@
|
|
var(V),
|
|
!,
|
|
check_arg([V], Name, Type, NewVal, Mod).
|
|
+check_input(a, _, _, _, _) :-
|
|
+ !,
|
|
+ fail.
|
|
check_input(abort, _, _, _, _) :-
|
|
!,
|
|
fail.
|