Mercurial > emacs
comparison src/bytecode.c @ 50760:a32b154ea162
(Fbyte_code) <unwind-protect>: Use Fprogn rather than 0 and Qnil.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Thu, 01 May 2003 00:22:31 +0000 |
| parents | 58d2828adc19 |
| children | c955fcb7a64a |
comparison
equal
deleted
inserted
replaced
| 50759:7b1710f096a3 | 50760:a32b154ea162 |
|---|---|
| 875 } | 875 } |
| 876 | 876 |
| 877 case Bunwind_protect: | 877 case Bunwind_protect: |
| 878 /* The function record_unwind_protect can GC. */ | 878 /* The function record_unwind_protect can GC. */ |
| 879 BEFORE_POTENTIAL_GC (); | 879 BEFORE_POTENTIAL_GC (); |
| 880 record_unwind_protect (0, POP); | 880 record_unwind_protect (Fprogn, POP); |
| 881 AFTER_POTENTIAL_GC (); | 881 AFTER_POTENTIAL_GC (); |
| 882 (specpdl_ptr - 1)->symbol = Qnil; | |
| 883 break; | 882 break; |
| 884 | 883 |
| 885 case Bcondition_case: | 884 case Bcondition_case: |
| 886 { | 885 { |
| 887 Lisp_Object v1; | 886 Lisp_Object v1; |