--- ray/src/rt/fprism.c	2011/02/18 00:40:25	2.8
+++ ray/src/rt/fprism.c	2014/07/08 18:25:00	2.10
@@ -1,5 +1,5 @@
 #ifndef lint
-static const char	RCSid[] = "$Id: fprism.c,v 2.8 2011/02/18 00:40:25 greg Exp $";
+static const char	RCSid[] = "$Id: fprism.c,v 2.10 2014/07/08 18:25:00 greg Exp $";
 #endif
 /* Ce programme calcule les directions et les energies des rayons lumineux
    resultant du passage d'un rayon au travers d'un vitrage prismatique
@@ -776,7 +776,7 @@ l_get_val(
  int val, dir, i, trouve, curseur;
  int nb;
  double valeur;
- TRAYON *rayt, raynull;
+ TRAYON *rayt=NULL, raynull;
  
  if (prismclock < 0 || prismclock < eclock) setprism();
  if (bidon == BADVAL) {
@@ -823,7 +823,7 @@ l_get_val(
 }
 
 
-extern void
+void
 setprismfuncs(void)  /* declared in func.h */
 {
  funset("fprism_val", 3, '=', l_get_val);