rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

do not print error messages if .scryerrc[.pl] does not exist (#842)

Browse Source
This commit is contained in:
Mark Thom
2021-02-28 17:57:35 -07:00
parent 360485d830
commit a03f00628b
2 changed files with 11 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/toplevel.pl
View File

@@ -2,6 +2,7 @@
copy_term/3]).
:- use_module(library(charsio)).
:- use_module(library(files)).
:- use_module(library(iso_ext)).
:- use_module(library(lists)).
:- use_module(library(si)).
@@ -11,8 +12,14 @@
load_scryerrc :-
( '$home_directory'(HomeDir) ->
atom_concat(HomeDir, '/.scryerrc', ScryerrcFile),
catch(use_module(ScryerrcFile), E, print_exception(E))
append(HomeDir, "/.scryerrc", ScryerrcFile),
( file_exists(ScryerrcFile) ->
% convert ScryerrcFile to atom. somehow, I dunno how.
append(ScryerrcFile, "'.", ScryerrcFile0),
read_term_from_chars(['\'' | ScryerrcFile0], ScryerrcFileAtom),
catch(use_module(ScryerrcFileAtom), E, print_exception(E))
; true
)
; true
).