Mercurial > hg > xemacs-beta
comparison src/database.c @ 177:6075d714658b r20-3b15
Import from CVS: tag r20-3b15
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:51:16 +0200 |
parents | 8eaf7971accc |
children | 3d6bfa290dbd |
comparison
equal
deleted
inserted
replaced
176:6866abce6aaf | 177:6075d714658b |
---|---|
650 (key, val, dbase, replace)) | 650 (key, val, dbase, replace)) |
651 { | 651 { |
652 struct database_struct *db; | 652 struct database_struct *db; |
653 int status; | 653 int status; |
654 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; | 654 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; |
655 | 655 |
656 CHECK_DATABASE (dbase); | 656 CHECK_DATABASE (dbase); |
657 CHECK_STRING (key); | 657 CHECK_STRING (key); |
658 CHECK_STRING (val); | |
658 db = XDATABASE (dbase); | 659 db = XDATABASE (dbase); |
659 if (!DATABASE_LIVE_P (db)) | 660 if (!DATABASE_LIVE_P (db)) |
660 signal_simple_error ("Attempting to access closed database", dbase); | 661 signal_simple_error ("Attempting to access closed database", dbase); |
661 | 662 |
662 GCPRO4 (key, val, dbase, replace); | 663 GCPRO4 (key, val, dbase, replace); |