Changeset 30231 in project
 Timestamp:
 12/28/13 17:22:52 (6 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

release/4/postgresql/trunk/postgresql.scm
r30227 r30231 662 662 (valueat* result column row raw: raw)) 663 663 664 (define (rowvalues result #!optional (row 0) #!key raw) 665 (checkrowindex! result row 'row) 664 (define (rowvalues* result row #!key raw) 666 665 (let loop ((list '()) 667 666 (column (columncount result))) … … 671 670 (sub1 column))))) 672 671 673 (define (columnvalues result #!optional (column 0) #!key raw) 674 (checkcolumnindex! result column 'column) 672 (define (rowvalues result #!optional (row 0) #!key raw) 673 (checkrowindex! result row 'row) 674 (rowvalues* result row raw: raw)) 675 676 (define (columnvalues* result column #!key raw) 675 677 (let loop ((list '()) 676 678 (row (rowcount result))) … … 679 681 (loop (cons (valueat* result column (sub1 row) raw: raw) list) 680 682 (sub1 row))))) 683 684 (define (columnvalues result #!optional (column 0) #!key raw) 685 (checkcolumnindex! result column 'column) 686 (columnvalues* result column raw: raw)) 681 687 682 688 ;; (define (rowalist result #!optional (row 0) #!key raw) … … 1231 1237 (loop (kons (extractitem result item) seed) (add1 item))))))) 1232 1238 1233 (define rowfold (makeresultfold rowcount rowvalues ))1239 (define rowfold (makeresultfold rowcount rowvalues*)) 1234 1240 (define (rowfold* kons knil result) 1235 1241 (rowfold (lambda (values seed) 1236 1242 (apply kons (append values (list seed)))) knil result)) 1237 1243 1238 (define columnfold (makeresultfold columncount columnvalues ))1244 (define columnfold (makeresultfold columncount columnvalues*)) 1239 1245 (define (columnfold* kons knil result) 1240 1246 (columnfold (lambda (values seed) … … 1250 1256 (loop (kons (extractitem result (sub1 item)) seed) (sub1 item)))))) 1251 1257 1252 (define rowfoldright (makeresultfoldright rowcount rowvalues ))1258 (define rowfoldright (makeresultfoldright rowcount rowvalues*)) 1253 1259 (define (rowfoldright* kons knil result) 1254 1260 (rowfoldright (lambda (values seed) 1255 1261 (apply kons (append values (list seed)))) knil result)) 1256 1262 1257 (define columnfoldright (makeresultfoldright columncount columnvalues ))1263 (define columnfoldright (makeresultfoldright columncount columnvalues*)) 1258 1264 (define (columnfoldright* kons knil result) 1259 1265 (columnfoldright (lambda (values seed)
Note: See TracChangeset
for help on using the changeset viewer.