[foo-cvs] foo/elkfoo/scm next-compat.foo,1.3,1.4

[Ramon Gonzalez-A. <rg...@us...>]

Update of /cvsroot/foo/foo/elkfoo/scm
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv23612

Modified Files:
	next-compat.foo 
Log Message:
dealing with the old Offset/Reference confussion

Index: next-compat.foo
===================================================================
RCS file: /cvsroot/foo/foo/elkfoo/scm/next-compat.foo,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** next-compat.foo	26 Jan 2005 23:19:50 -0000	1.3
--- next-compat.foo	10 Apr 2007 14:07:16 -0000	1.4
***************
*** 52,54 ****
--- 52,66 ----
    `(foo:synthesize ,c ,d ,s ,n ,f (lambda () ,@e)))
  
+ ;
+ ;;==> To avoid old error.
+ ;;    Offset & Reference were mixed up. 
+ ;;    Reference was almost never used because Offset was doing its function.
+ ;;    I set Reference to Offset value and set Offset to 0.
+ ;
+ ;               (set! tsk (make-task Ref Off Workfile ctxt Mode SRc Blk))
+ ;               (set! tsk (make-task Off 0. Workfile ctxt Mode SRc Blk))
+ 
+ (define (help-RefOff-NextCompat Ref Off) (list Off 0.))
+ 
+ 
  (provide 'next-compat)