fix recent typos

library/dialect/swi/fli/blobs.c

@@ -250,7 +250,7 @@ PL_unregister_blob_type(PL_blob_t *type)
 {
   fprintf(stderr,"PL_unregister_blob_type not implemented yet\n");
   return FALSE;
-xs}
+}
 
 void
 Yap_install_blobs(void)

library/mpi/Makefile.in

@@ -106,12 +106,17 @@ mpe.o: $(srcdir)/mpe.c
 
 .depend: $(HEADERS) $(C_SOURCES) 
 	-@if test "$(GCC)" = yes; then\
-	  $(CC) -MM $(CFLAGS) -I$(srcdir)/include -i ../.. $(C_SOURCES) > .depend;\
+	  $(CC) -MM $(CFLAGS) -I$(srcdir)/include -I ../.. $(C_SOURCES) > .depend;\
 	else\
           makedepend -f - -- $(CFLAGS) -I$(srcdir)/include -- $(C_SOURCES) |\
           sed 's|.*/\([^:]*\):|\1:|' > .depend ;\
 	fi
 
+install: all  install-examples
+	@if test "$(SOBJS)" = ""; then echo ""; else $(INSTALL_PROGRAM) $(SOBJS) $(DESTDIR)$(YAPLIBDIR); fi
+
+install-examples:
+
 clean:
 	$(RM) $(RUBBISH)
 

misc/sysgraph

@@ -274,13 +274,16 @@ take_line( Line, NS, AS, FS ) :-
 take_line( Line, NS, AS, FS ) :-
      append( _, [ "YAP_UserCPredicate", NS, FS, AS|_], Line), !.
 take_line( Line, NS, AS, FS ) :-
-     append( _, [ "PRED", NS, AS, FS|_], Line), !.
+     append( _, [ "PRED", NS0, AS, FS|_], Line), !,
+     append( ["pl_", NS0, AS, "_va"], NS ).
 take_line( Line, NS, AS, FS ) :-
-     append( _, [ "PRED_IMPL", NS, AS, FS|_], Line), !.
+     append( _, [ "PRED_IMPL", NS0, AS, FS|_], Line), !,
+     append( ["pl_", NS0, AS, "_va"], NS ).
 take_line( Line, NS, AS, FS ) :-
      append( _, [ "PL_register_foreign", NS, AS, FS|_], Line), !.
 take_line( Line, NS, AS, FS ) :-
-     append( _, [ "PRED_DEF", NS, AS, FS|_], Line), !.
+     append( _, [ "PRED_DEF", NS0, AS, FS|_], Line), !,
+     append( ["pl_", NS0, AS, "_va"], NS ).
 take_line( Line, NS, AS, FS ) :-
      append( _, [ "FRG", NS, AS, FS|_], Line), !.
 % from odbc

pl/consult.yap

@@ -1,6 +1,6 @@
 /*************************************************************************
 *									 *
-  *	 YAP Prolog 							 *
+  *	 YAP Prolog  							 *
 *									 *
   *	Yap Prolog was developed at NCCUP - Universidade do Porto	 *
 *									 *
@@ -953,7 +953,6 @@ source_file(Mod:Pred, FileName) :-
 %% @}
 
 %% @{
-{
 
 /** @addtogroup YAPLibraries Library Predicates
 

pl/protect.yap

@@ -22,7 +22,7 @@
 '$protect' :-
 	fail,
         '$system_mod'( M ),
-        '$current_predicate'(A, M, T0, Flags),
+        '$current_predicate'(_A, M, T0, Flags),
         NFlags is Flags \/ 0x00004000,
 	'$flags'(M:T0, Flags, NFlags),
 	fail.