Commit 8d61b852 authored by Erick's avatar Erick

Copyright date update in the REPL.

parent 958c7c1d
;;;;
;;;; repl.stk -- STklos REPL
;;;;
;;;; Copyright 2000-2008 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;; Copyright 2000-2009 Erick Gallesio - Universite de Nice <eg@unice.fr>
;;;;
;;;;
;;;; This program is free software; you can redistribute it and/or modify
......@@ -21,7 +21,7 @@
;;;;
;;;; Author: Erick Gallesio [eg@unice.fr]
;;;; Creation date: 4-Jun-2000 15:07 (eg)
;;;; Last file update: 1-Jan-2008 14:54 (eg)
;;;; Last file update: 28-Apr-2009 11:51 (eg)
;;;;
;; This file defines the REPL module. This module does not export anything
......@@ -199,7 +199,7 @@ doc>
(%initialize-signals)
(when interactive?
(let ((line1 (format "STklos version ~A\n" (version)))
(line2 "Copyright (C) 1999-2008 Erick Gallesio - I3S-CNRS/ESSI <eg@essi.fr>\n")
(line2 "Copyright (C) 1999-2009 Erick Gallesio - Universite de Nice <eg@unice.fr>\n")
(line3 (format "[~a/~a]\n" (machine-type) (%thread-system))))
(display (do-color 'bold 'black "* " 'bold 'blue line1))
(display (do-color 'bold 'black " * " 'bold 'blue line2))
......
This diff is collapsed.
This diff is collapsed.
......@@ -20,7 +20,7 @@
*
* Author: Erick Gallesio [eg@unice.fr]
* Creation date: ??-Oct-1993 ??:??
* Last file update: 19-Apr-2009 11:42 (eg)
* Last file update: 25-Apr-2009 00:28 (eg)
*
*/
......@@ -715,7 +715,7 @@ static SCM read_rec(SCM port, struct read_context *ctx, int inlist)
return tmp;
if (inlist)
return STk_dot;
signal_error(port, "dot outside of list", STk_nil);
signal_error(port, "dot outside of list", STk_nil);
}
}
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment