Changeset 9147 in project


Ignore:
Timestamp:
03/02/08 15:04:32 (12 years ago)
Author:
Kon Lovett
Message:

Save.

Location:
release/3/wiki-capture-symbols/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/3/wiki-capture-symbols/trunk/wiki-capture-symbols.scm

    r8703 r9147  
    66  (fixnum)
    77  (inline)
     8  (no-bound-checks)
     9  (no-procedure-checks)
    810  (import
    911    ##compiler#block-globals
  • release/3/wiki-capture-symbols/trunk/wiki-symbol-db-update.scm

    r8703 r9147  
    66  (fixnum)
    77  (inline)
     8  (no-bound-checks)
     9  (no-procedure-checks)
    810  (export
    911    wiki-db-update-symbols! ) )
     
    3638#<<EOS
    3739DELETE FROM symbols
    38   WHERE lower(symbols.file) LIKE lower('%' + ?001);
     40  WHERE lower(symbols.file) LIKE lower('%' || ?001);
    3941EOS
    4042)
     
    5961          [errs (read-all err)])
    6062      (let-values ([(epid enorm ecode) (process-wait pid)])
     63        (close-input-port in)
     64        (close-output-port out)
     65        (close-input-port err)
    6166        (if (and enorm (zero? ecode))
    6267            lyst
     
    8691  ; Just in case a new db file
    8792  (sqlite3:exec/transaction db *mak-symbols-table-sql*)
    88   ; Why not remove every existing entry & start fresh?
     93  ; Just remove every existing entry & start fresh?
    8994  (sqlite3:exec/transaction db `(,*del-symbols-entry-sql* ,(make-pathname #f fil ext)))
    9095  ; Insert every globally defined symbol
Note: See TracChangeset for help on using the changeset viewer.